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1.0 INTRODUCTION 


There is a large amount of programming being performed 
by the LEC, Applied Mechanics Department, Structures Tech- 
nology Section for the purpose of supporting the original 
development and update programming of applications programs 
for the Integrated Structural Analysis System (ISAS) . This 
discussion and outline are presented in an attempt to lay- 
out a standard document format which will be rigidly held 
to in the preparation of program documents. 

The fact that documentation is required for all program- 
ming work performed by LEC for the NASA/JSC, Structures and 
Mechanics Division, Structures Branch has previously been 
agreed to by both parties. The documentation thus far has 
been satisfactory for the most part but there has been a 
persistent inconstancy in the document format and content. 

It seems that the largest difficulty is the programmers 
requirement that both a program document and a users guide 
must be combined as one document. 

A review of the time being spent on documentation versus 
time estimates on task agreements indicates that documentation 
effort is being underestimated. The additional information, 
formatting, gathering, and preparing considered herein may 
cause future documentation estimates to double past estimates 
but this will still be a small portion of the total task effort. 

The document suggested to alleviate the existing diffi- 
culties is described within this guide. It is designed so 
both programmers and program users who desire or are required 
to work with the program sometime in the future will have 
sufficient information with which to use or alter the program. 
The intended document format is outlined and described in 

/ 
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Section 2 of this guide. 


Documentation which involves changes, additions, and I/O 
capability revisions to existing programs will follow the 
format of Section 2 as closely as practical. The documen- 
tation in this case will not normally involve the entire 
subject program, only those portions which have been added 
or modified. 

There are sufficient appendices included in this guide to 
give the programmer a good idea of what is intended by the 
verbal descriptions in Section 2. Appendix A consists of 
a checklist which should be reviewed each time a program- 
ming effort is documented. Each item which appears on the 
checklist and pertains to the programming performed should 
be included in the planned document. 



2 . 0 DESCRIPTION OF PROGRAM DOCUMENTATION 


Each subsection of Section 2 is a description of an identi- 
fiable portion of the intended program document. The outline 
of the new format is shown in Figure 2-1. 

There will be no discussion of the title page, approval 
page and table of contents within this guide, except to say 
that previous formats for technical memos and program docu- 
mentation are acceptable as they have been in the past. The 
specific format here will vary with the importance of the 
subject document and the formality with which it is felt 
that it should be documented. 

The numbering of subsections within Section 2 will be 
like so: 

2 - 1.0 
2 - 2.0 
2 - 2.1 
2 - 2 . 1.2 
« 

etc., 

so as to be able to identify these subsections from primary 
subsections of this document. 
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2 - ABSTRACT 


The abstract is a concise description of the capabilities 
of the program. Whenever possible it will be written on 
JSC form 143, entitled, "JSC Computer Program Abstract". 

The abstract will describe program input requirements, the 
program’s operational characteristics, and the program 
output in general terms. The programming language and the 
required computer facility description for using the program 
will be included. 

A program number will be obtained from the ADP Computer 
Program Sharing Library when the subject of the document is 
a newly developed program. 



2-1 . 0 INTRODUCTION 


The introduction contains the purpose of the program 
including background data leading to the request for the pro 
gram development. The relationship of the subject program 
with other programs and/or systems is discussed in this 
section. A flow chart showing interrelationships may be 
placed in this section if it adds to the clarity of the 
explanation. Also included in this section will be a des- 
cription of the programs scope or problem solving capability. 

Other items which may appear in this section: 

• The program name and acronym if any. 

• Broad description of planned input sources. 

• General type and size of problems which the program 
will solve. 

• Broad output description and where the output is 
intended to be utilized. 
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2-2.0 PROGRAM DESCRIPTION 

This section is intended primarily for the analyst who 
is interested in a description of the technical details and 
solution procedures used in the development of the program. 

The engineering or scientific problem formulation contained 
in the program will be presented in this section. Also the 
methods for achieving a numerical solution to the formulated 
problem will be described here. Broad statements leading 
into the following more detailed subsections will be presented 

in Section 2. 

2-2.1 General Description 

Begin to describe in detail all the analytical capabilities 
which have been designed into the program. A physical 
description of all the required input information will be 
presented in this subsection along with a similar description 
of the program's output. An explanation of why this input 
and output is required, optional program capabilities, and 
I/O will be outlined in this section. 


2-2.2 Technical Description 


This subsection contains the technical solution flow des- 
cription and organization of the program. Flow charts detailing 
the path through the analytical solution may be presented if 
they are helpful. The method of applying numerical procedures 
for solving the analytical problem are described. It may be 
of some value and clear-up the presentation for large pro- 
grams if the technical description. Section 2.2, is split 
into two headings: the first. Analytical and Problem For- 

mulation; the second. Solution Considerations. 


- 7 - 
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2- 2. 2.1 Analytical and Problem Formulation 

The actual engineering or scientific problem to be 
solved by the program in equation form should be detailed 
in this subsection. This section could start with a nomen- 
clature page to put symbol explanations in close proximity 
to the symbol equations. The program variable name could 
also be related to the symbols and nomenclature if it would 
clarify the document. Several subsections might be used to 
describe various analytical methods which might be used within 
one program. 

2-2. 2. 2 Solution Consideration s 

Logical construction of the program design to achieve 
problem solution will be spelled out in this section. All 
numerical techniques used for equation solution will be 
described in detail within this subsection. Additional sub- 
sections may be used in large size programs for clarification. 
If additional function flow charts can further clarify the 
explanation they will be included here. 

2-2. W Additional Subsections 

It may be appropriate to describe the functions of the 
mathematical subroutines briefly if analytical flow charts 
are presented within section 2.0. It may depend on the 
program individuality whether subroutine functions will better 
be described here or within the next section, 3.0, Usage. 

Other items which could appear in this section 

• Information to explain details and relate program 
sections 

• Definition of Major Internal Variables 
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2-3.0 PROGRAM USAGE 


This section is intended to be the program users manual. 
It must contain sufficient information to enable a new program 
user to successfully utilize all the capabilities of the 
program. Input, output, special characteristics and sample 
problems must be thoroughly described and discussed. 

2-3.1 Program Organization and Operating Characteristics 

An overall program flow chart will be presented in this 
subsection. This overall flow chart can be used as reference 
throughout this section . 

2-3.2 Input Description 

A detailed description of the input required for all 
options of the program will be placed within this subsection. 
Other data to appear here will include: 

• A deck setup description 

• Input data detailed formats for card, tape and drum 
input — also terminal 

• Description of input data and units required 

• Program symbolic names and mathematical names 

• Reference to sample problem input data 

2-3.3 Output Description 

A detailed description of all output options available 
to the user. Data to be included here will include: 

• Diagnostic descriptions and solutions 
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• Detailed output descriptions of content and formats 

• References to sample problems 

• Where and how output is used - hard copy, tapes, 
plots 

• Distinguish between calculated output and output 
which is echoed input 

2-3.4 Sample Problems 

All the information necessary to reproduce the sample 
problem should be contained and explained in this subsection. 
Program features and options should be pointed out. Compar- 
ison of results with an independent solution should be made 
if possible. 

2-3.4. 1 Problem Description 

The physical problem being solved must be completely 
described here. Physical and geometrical properties required 
for the solution must be supplied or the method of obtaining 
them defined. Drawings or sketches clarifying the problem 
are to be included. 

2-3. 4. 2 Input Deck 

The sample problem input deck is to be shown and explained 
by relating input parameters to physical quantities. Input 
file formats are to be shown and explained. Input tape units 
are to be identified along with input tape format descriptions. 

2- 3 . 4 . 3 Sample Problem Output 

A description, explanation, and discussion of sample pro- 
blem output using hardcopy listings as a reference figure. 

-jo- 
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2 - 3.5 Discussion of Program Characteristics 

A discussion with reference to the sample problem of 
such program characteristics as run time, number of pages 
output, special features and options, and various modes of 
output. 



2-9 


2-4.0 SUBROUTINE DOCUMENTATION 


This section of the program document is intended to pro- 
vide significant information related to the programming aspects 
of the program. Such data as the language it is written in, 
the computer and system it was written for, overlay infor- 
mation, and the required core storage for the program should 
be written into this section. Other pertinent information 
regarding future improvements, existing problems, and special 
program features should be spelled out here. 

A light introduction to the documentation of program 
routines could also appear in this section. 

Refer to Appendix B and C for examples of subroutine 
documentation . 


2-4.1 Main Program Description 

'i 

A description of the purpose, function, and organization 
of the main routine of the program is presented in this 
section. An overall program flow chart should be presented 
unless the program is a minor one. An overlay listing and 
a listing of the main program code should appear in this part. 

2-4.2 Common Block Information 

Programs having several named common blocks should use 
this section to describe them. A listing of the variables 
contained in each block should be shown. Usually these 
variables will be defined within the section describing each 
subroutine so they probably will not have to be defined here. 
The use of Fortran Procedures to incorporate common blocks 

-/J^r 
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within various subroutines should be described if used. A 
common block versus subroutine matrix showing which common 
blocks are contained in each subroutine should be placed in 
this section. 


2-4.3 Namelist Information 

Describe namelists used in the program. Associate the 
namelist names with the variables within each. 

2-4.4 Parameter Information 

In a case where extensive use is made of parameter con- 
stants a section such as this can be used to identify and 
describe the parameters and their use. 

2-4.5 Subroutine Description 

A general description of each subroutine used within 
the program and its use should be written in this section. 

2-4. 5.1 Subroutine ABCDEF (First subroutine) 


For each subroutine of significance the following data 
will be included: 


Subroutine function 
Required subroutine storage 
List of important parameters 
List of important input variables 
List of important output variables 
Description of tape and other mass storage input 
Description of tape and other mass storage output 
List of error messages and method of error correction 
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• Printed output description 

• Library routines required 

• Flow chart for large subroutines 

• Listing 

2-4. 5. 2 Additional Subroutine 


2-4 . 5 .N Additional Subroutine 
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2-5.0 REFERENCES 


As Required 


2 - APPENDICES 


As Required 
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3 . 0 UTILIZATION OF DOCUMENTATION PROCEDURES 


The procedures described in this documentation guide 
will result in large documents. The documents will contain 
everything useful that there is to know about the subject 
program except for extensive user experience descriptions. 

The information within the documents, written to the format 
described herein, will have analytical data presented from 
an analysts point of view within Section 2,, user infor- 
mation presented from a users point of view within Section 3., 
and programmers information presented from a programmers 
point of view presented within Section 4. 

This guide will be distributed to all programmers per- 
forming category 1 program development. They will be instructed 
to use this guide for reference when documenting new programs 
and making changes and additions to existing programs. 

Appendix A, a checklist to-be used when writing a program 
document, will be reviewed when each program document is 
written. 

It is intended that a continuing review of documentation 
will be exercised so as to insure that the Structures Branch 
of the Structures and Mechanics Division receives the most 
efficient program documentation that can be written. Con- 
tinuing feedback from technical monitors, program and docu- 
ment users regarding documentation quantity and quality is 
expected, helpful, and appreciated. 



APPENDIX A 


Scientific Program Documentation 
Checklist 




SCIENTIFIC PROGRAM DOCUMENTATION 
CHECKLIST 


ABSTRACT 
_ JSC Form 143 

1. INTRODUCTION 


Program Purpose (general) 
Background Information 
Source of Input 


Relationships to other prograi 
Program Scope 
Output Utilization 


2. PROGRAM DESCRIPTION (Equations and Method of Solution) 


• General Description 

Program purpose (specific) (physical significance) 
Program capabilities , options 

Computational philosophy/logical development 
Input/output parameters 
Input/output media utilized 

• Technical Description 
•• Analysis 

Problem formulation 
Equations (math model) 

Math symbol definitions 

•• Method of solution 
System design 
Numerical techniques 
General flow chart 
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3. USAGE (Program users manual) 

Overall Functional Flow Chart 
• Input Description 

Data specifications (type, format, units, options) 

Card specifications (card columns vs data identif icatioi 
ip a p 0 specifications (record, word vs data identif icatio: 
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• Program Run Preparations 

Deck set-up 
Special control cards 
_ Special I/O devices 
Non-standard routines 
Overlay structure 

• Output Description 

Identification-printer output labels and headings 
Identif ications-non-printer (plotter, punched card, etc.) 
labels and headings 

Variable descriptions (format, units of measure) 

'p a p e output (record, file, word definitions) 

Programmed diagnostics (message, source, and action requir 
References to sample problems 

• Execution Characteristics 

•• Restrictions 
Analytic 
Hardware 
Storage 

Programmed diagnostics referenced 

•• Running Time/Lines of Output 
Method of estimation 
_ Maximum estimate 

•• Accuracy/Validity 

Double precision arithmetic operations 
Loss of numeric significance. 

Relation of output significance to input 
Validation or verification of program (calculator or 
comparison with other programs) 

• Sample Problem 

Problem Description 
Input deck, tapes, and files 
Output description and explanation 
Plots 
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4. SUBROUTINE DOCUMENTATION (Programmer Document) 

• Main Program Description 

Overall flow chart 
Listing 
Map 
Input 
__ Output 

• Common Block Information 

Cross reference matrix 

• Namelist Information 

• Parameter Information 

• Subroutine Description 

Individual routine functions 
•• Individual Subroutine Description 
Function 
Storage 
Parameters 
Input variables 
Output variables 
Tape and mass storage input 
Tape and mass storage output 
Error messages and correction 

Normal output 

Library routines 

Flow chart 
Listing 

5. REFERENCES 

Technical references 

Related program(s) , routine (s) , task descriptions 
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APPENDICES 


• Tables 

Tables in appendix (too large for text) 

• Figures 

Figures in appendix (too large for text) 

• Listings 

Listings in appendix (too large for text) 



APPENDIX B 

Sample of Subroutine Documentation 
(3 subroutines included) 







4.4 Subroutine Description 


The functions of the subroutines which have been added to 
the FRISBE Program and the added capabilities of altered 
subroutines are described below. 


ROUTINE 

DREAD 


FCREAD 


function 

Additional namelist capability has been added 
to this subroutine so controlling data for 
reading flight condition and force coefficient 
files can be read into the program. 

A routine which reads a flight conditions file 
from tape. This routine will not necessarilly 
read the ISAS Flight Condition File resident 
on drum storage. A start time and an end 
time are obtained from namelist input in DREAD, 
All flight conditions between the start and 
end time are read and stored in core (COMMON 
Block AERO) . 


This routine replaces the EXEC-2 library routine 
also called FILE. There is no similar routine 
in the EXEC-8 library so this routine was written 
in Fortran to perform the previous function of the 
EXEC-2 FILE routine. The routine skips a 
speci f ied number of ond-o f- f i lo marks before 
beginning a read or write. 


FOCORD 


(ORIGINAL 

<KK)0&|j& 


A routine which reads force coefficients from 
an ISAS formatted Force Coefficient Data File 
(on drum stoj tqe) for the flight conditions 
which are indicated from namelis 
from the Flight Conditions File. 


t J nput or 

-gs>- 



ROUTINE 


INTEG 


INTERP 


TREAD 


FUNCTION 


The output of the ISAS Flight Conditions Tape 
File (FRISBE output file) was altered slightly 
to make the format compatible with the other 
"Batch Flight Condition Files”. 

This subroutine has been altered to include 
the capability of interpolating two force data 
files to construct a combined applied force 
file for dynamic response analysis. 


The previously existing subroutine which is 
used primarily for reading tape data input 
has been altered to control the reading of the 
flight conditions data from tape and the force 
coefficient data from drum file storage. 

The subroutine also controls the force inter- 
polation used in the construction of an exter- 
nal force tape. 


4.4.1 Subroutine DREAD 

The purpose of subroutine DREAD is to read namelist data in 
namelist SIPGFP. The added variables to be read arc control 
parameters for reading ISAS files and accuracy requirements 
for selection of force coefficient sets from flight condition 
specifications. An output control parameter may also be 
re ad through $ IPGFP 


ORIGINAL PAGE IS 
OggQOR 
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STORAGE : 


IBANK 

1605g 


DBANK 

14000g 


PARAMETERS: 

SIZE 


NIMAX 

25 

Number 

NFMAX 

200 

Number 

NLMAX 

75 

Number 

ntmax 

50 

Number 

NNMAX 

150 

Number 

NDMAX 

400 

Number 

NMMAX 

50 

Number 


DESCRIPTION 

of interface loads - max. 
of external forces - max. 
of nodal point accelerations 
of time points - max. 
of nodes - max. 
of degrees-of- freedom - max. 
of modes - max. 


INPUT VARIABLES: 


MACH R 

alpha r 

BETA R 

DELTAE R 

DELTAR R 

FCFILE L 

FOCOFL L 

CNFGCK A 

TIME R 

QPSI R 

MACDIF R 

ALFDIF P 

BETADF R 

DELEDF R 

DELRDF R 

OPFCHK I 


Mach number array 
Angle-of-attack array- 
Yaw angle array 
Elevon angle array 
Rudder angle array 

If true read flight conditions tape 
If true read force coefficient file 
Configuration ID word 
Flight condition time array 
Dynamic pressure array 
Accuracy requirement for MACH array 
Accuracy requirement for ALPHA array 
Accuracy requirement for BETA array 
Accuracy requirement for DELTAE array 
Accuracy requirement for DELTAR array 
Print control 


OUTPUT VARIABLES: 

MACH 
ALPHA 
BETA 
DELTAE 
DELTAR 
FCFILE 
FOCOFL 
ETARTM R 

•••V^KNDTIM R 

TIM}:) 

QPSI 

CHFGCK 

MACDIF 

ALFDIF 


u 

Refer to input variables 


Starting time for the run 
End time for the run 


Refer to input variables 

\ 



max. 
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Refer to input variables 


BETADF 
DELEDF 
DELRDF 
OPFCHK 

PRINTED OUTPUT: 

The printed output from subroutine DREAD includes the modal 
tape title and the case title followed by namelist OUTPT. 
Namelist OUTPT is a previously existing namelist to which 
has been added the variables MACH, ALPHA, BETA, DELTAE, DELTAR 
FCFILE , FOCOFL, STARTM, ENDTIM, And OPFCHK. 

LISTING: 

A listing of subroutine DREAD is shown on the following eight 
pages . 
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DREAD •••*•• 

#FOR,S p. oread, dread 

FOR SEiX-1 t / i 3/ 74-0 | :D7i30 <17») 

SUBROUTINE dread ENTRY POINT 0Q1&64 


STORAGE USED? CODEU) 001*051 DAT A I Q I 0140001 BLANK C0mm0N(21 OODOOO 
Common blocks: 


03 

I 

in 


□ 003 A LOG I 0 000002 

0004 C A, 50 AT OCOOIH 

0005 C DAT A 0000 I 2 

0006 CLOGIC 0 0 000 H 

0007 OLOGK OOOOOS 

OotO symlog 000005 

0011 PLOGlC 000016 

0012 5CRDRM 000006 

0013 JPTAPE 000005 

0 Q l 4 optape ooooon 

0015 TLOGIC 000005 

□O l 6 OUTSAS 000002 

0017 AERO 0Q057H 


external references (block, name) 

Oq 2 0 FILE 

0021 NRNLS 

00 22 NREAS 

0023 NRBU* 

Oo 2*< NI02S 
0025 NPRTS 
DQ 2 6 N 1 0 I * 

0027 NJ03S 
0 0 30 N ft N l S 
0 0 3 t N*BU$ 

0032 NftEFS 
00 33 NE R R 3 * 



sToraqe assignment (block, type* relative location, name) 



000 1 
OO0I 
000 1 
000 1 
Qoa i 
0001 
000 1 
000 1 
0000 

000 1 

0001 
ooo I 
0000 


OOO 1 4 7 i 0 C L 
001202 l 0 l 7 G 
00122? IQ45G 
001252 10716 

0 D l 3 M ? 1 l 4 l G 
00 1 4 1 0 I 1 72G 

001 53 1 1 2 5 3G 

000256 1 SOL 

01 3631 2 OOF 
000057 2 2 N G 
O0OQ7N 2 4 5 G 
0005 7 7 2 6 OL 
0J 3652 3 1 OF 


000 1 Oal 157 1000G 

0001 00120? I 0 2 4 G 

0001 001 227 1 0 N 7 G 

0001 00 1 257 l 0 7 5 G 

000 I 001347 1 1 H 3 G 

000 1 0 0 1 N 1 5 I 1 7 6 G 

0001 001532 1 2 5 5g 

0001 000310 1 60L 

0001 0000H6 2 0 7 G 

0001 000520 2 3 OL 

0001 OOO l 0 R 2546 

0001 G0Q604 290L 

0001 OqO 1 32 3 1 2 G 


oool 001160 l Oo 2G 

OOOl 00 l 2 0 ? 1 0 2 6 G 

000 1 001234 I054G 

ODol 000163 11QL 

OOai 001364 11506 

OOQl 0002 l 4 I 2«L 

0001 001536 1 2 6 1 G 

CIOqQ 013610 1 7 o F 

QOqO Q13642 210F 

OODl 000067 233G 

OOOl 000557 26 qL 

000l OOO l 2 H 3DQG 

OQqO 013671 320F 


oool 00 1 1 7 l 
0001 001222 
0001 001234 
0001 001275 
OUUl 001354 
OOUl 001472 
OOUl 000231 

0000 o l 3 ti 2 2 
OObl 00U053 
OOu l 00007u 

0001 000115 
OOUl 000617 
QOOO 013677 


1 00?G 

000 1 

10366 

000 1 

1 US 6 6 

OUQ 1 

1 l C 7 <j 

QUO ) 

115 2 6 

cool 

1 2 326 

0001 

l 3 qL 

UO0 1 

1 tfoF 

oool 

2 16 6 

ooo 1 

2366 

oool 

2676 

003 1 

300t 

OOO 1 

3 4 o F 

0000 


Onl2o2 l 0 1 5 G 

0 012 2 2 l Q4 o6 

001 245 1 Q6 5g 

00 1 3 0 2 1 1 1 36 
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ORE A007S 
ORE A0D76 
0 R E A 0 Q 7 7 
QRtAL073 
ORE A0Q7V 
0REA0080 
ORE A JOa I 
ORE A0Q82 
ORE ACQbj 


ORE AOnBs 
ORE AOObi 
OR fc'AjOdo 
0READ0S7 

ORE AOQBa 

URL A008 V 
0R£A0G70 
ORE A0Q9 | 
u«£Ajq 92 
0R£A u 093 
C R E A 0 V h 
ORE A J09s 
ORE A00^6 
0 R E A u 0 9 7 

ORE AOQYii 
DREA0099 
DREAD 1 OQ 
DREAD 1 0 1 
OR £ A D'l 0 2 
ORE AO 103 


DOUCOO 

DOOUQU 

ooauao 
000000 
UD JOUO 

ooaooo 

ooouoo 

DOuUO 1 
D 0 u 0 0 2 
000UC3 
0CC004 
000005 
000007 
ooooto 

OOUU 1 1 
0000 i 2 
G 000 I 3 

0000 l 14 
aooo 1 5 

O000 1 6 
OOUU l 7 
000020 
00002 t 
000022 
000023 
Dn002S 
000026 
000027 
0 0 U 0 3 0 
00003 1 
00003 2 
00u03 *4 
000036 
OOUU 3 7 
0 0 U G 4 1 
0 0 U 0 4 6 
COOG 46 
U00046 
00U0S3 
OOOUS 3 
00UU53 
DOOOS 7 
00o05 7 
00 DOS 7 
DOu 0 6 0 
OOUU 7 0 
0 0 L> 0 7 0 
0 Oil 0 7 0 
000070 
000070 
OOUU 7 4 
OOOO 7 4 
000074 
OOu 1 0*4 
OOulOM 
000 104 
nao 1 04 


4 



*«•'«.* D R E A Q 


G02t0 

127* 

002 6 1 

128* 

00262 

i 29* 

00263 

I 30* 

0026*< 

13 1* 

00268 

J 3 2 * 

0027> 

133* 

002 72 

I 39* 

00273 

1 35* 

00279 

l 36* 

00275 

i 3 ?• 

00277 

J 38. 

00 3a 2 

I 39* 

00303 

l xo* 

0030* 

1 9 I ♦ 

0Q3a8 

192* 

003 l I 

193* 

00 3 | 9 

199* 

003 iS 

| 9b* 

003 1 6 

1X6* 

0032 1 

197* 

0 0 3 2 1 

I 98* 

0032 1 

199* 

0032 1 

1 50* 

003 2 Z 

151 • 

00325 

152* 

00328 

153* 

CO 00327 

159* 

1 OO33I 

155* 

1X5 003 33* 

| 56* 

0033* 

157* 

00335 

158* 

003 36 

159* 

00337 

1 60* 

00390 

141* 

003x1 

l 6 2 * 

003X3 

163* 

0 0 3*49 

169* 

003x5 

1 65* 

00 3x6 

166* 

003X7 

167* 

00351 

168* 

00353 

1 69* 

00359 

170* 

00355 

17 1* 

00355 

1 72* 

003&7 

173* 

00 360 

179* 


0036 1 
003*2 
D 0 3 6 3 
00365 
003 6 7 

00370 

00371 1 1 e I • 

00372 182* 

0037S 183* 



C 

c 

c 


BET* I I ) * 0*0 
DLL'* AE U 1 * 0*0 
PEL. T AR 11 I ■ 0*0 
TTftBLE 1 1 1*D*Q 
60 CONTINUE 

00 70 I ■ i »NH mAX 
D 1 SPL ( I 1 “0 ,0 
VELOC < I ) *0 ,0 
MODES < X ) -0 
DAMP C I J ■ 0 » 0 
70 CONTINUE 

do eo l-!,io 

. B G N T I M I I )*a*0 
OElT I M C 1 > - 0 « 0 
80 CONTINUE 

DO 90 1-1,3 
DO 90 1 * 3 

FORXYZt l 1 J>»0*0 
aftxyz i I * j i *a *0 
90 CONTINUE 
J-j 



THE NAMELIST DATA 15 REaO IN AT THIS POINT. 


READ UCARQS, IPGFP) 

|00 continue 

J * J + I 

I F 1 J .GT . I 1 > GO TO 1 1 0 
lFIBGNTIHlj),GT*a.O) GO To IClO 
| 10 CONT INUE 

STARTM - BGNTlMCi) 

ENDT I M * B&NT I M 1 J-l } 

mdelta«j-i 

N D T I ME * U” 2 
J, j 

|F<*N0T.F0RTAP) GO TO l 2 0 
J, T TABLEt l 1*1 
GO TO 130 
120 Continue 
J*J* 1 

IF I J.GT«NTMAX» GO TO 130 
IF I ABS< TTABLEWU .GT.TOLl GO TO 120 
130 CONTINUE 

NTpTSnJ-I 

xcg»xref 
YCg» YREF 

2CG*ZR£F 

l»l 

I HO CONTINUE 

I - I ♦ i 

IF I I .GT .NLMAx J 00 To 15D 
IF ( IDACC 4 1) *NE.OI GO To IhO 
150 CONTINUE 
Nt5*I“l 
rewind input 
Read < INPUT > NF ILfS 

IF lLOCONO.UT.2rOR.-LOCONO.GT »NF jLESI GO TO 160 


D a j t l 1 J J M 



aoo 105 

OOU 1 U6 
OOU 1 U7 

ORE AO 1 ax 

oou l 1 0 

DM E AD 1 05 

OOU 1 IS 

DRE AD 1 06 

0 0 D 1 15 

ORE AD 1 07 

OOU 1 15 

D R E A 0 1 0 « 

OOU 1 IS 

DREAD 1QV 

000 1 16 

DRE AD 1 1 0 

oau 1 17 

DREAD 1 1 1 

OOu 1 2 9 

DRE AD 1 1 2 

' 000129 

DREAD l 1 3 

OOU l 29 

D R E A 0 1 19 

000 1 29 

DRE AD 1 l & 

OOU 132 

0 R E A D 1 1 6 

OOU 1 32 

OKEAUl 17 

OOU 1 3 2 

DRE AD l t & 

OOU 1 3 2 

DRE AD l 1 9 

OOU t 3 2 

0REAU1 20 

UOOl 90 

U R E A D 1 2 I 

0001 90 
OOU 190 
000 1 90 
OOU 1 xa 

DREAD 1 22 

caul 9 2 

ORE Au 1 2 3 

000 1 97 

DRE AD 1 2 X 

OOU 1 97 

ORE AD I 25 

DOO l 5 1 

DRE AD i 2 6 

000 1 55 

DRE AD 1 2 7 

0 00 16 3 
OOU 1 a 3 
OOU 1 69 

OREAD l 2a 

OOU l 6 7 

DRE AO l 29 

OOU 1 7 2 

DRE AD 1 30 

000 1 7 5 

DRE AO 1 3 1 

000 1 77 

wRE AD 1 32 

OOU 2 0 i 

D R E A D 1 3 3 

000 2 l 2 

DRE AU 1 39 

OOU 2 l X 

dread l 35 

0002 1 9 

U R E A D I 3 6 

00 D 2 1 6 

DR£AQ 137 

QQ022 2 

dre ad 1 3a 

000231 

DRE AD 1 3 9 

000231 

DREAD 1 90 

0002 33 

DRE AD l 9 1 

000235 

OREAD l 92 

U 0 U 2 3 7 

U R t A U 1 9 3 

00029 1 

DRE AU 1 9 9 

0 QO 2 X 9 

OREAD I 9b 

000299 

DRE AD | 96 

0002X6 

OREAD 197 

OOU 2 5 2 

DRE AO l 9a 

000256 

uRE AO 1 99 

00025 6 

DREAD 1 50 

000260 

DREAD 1 5 1 

000263 

QREAQ 152 

000270 


•*•*,* DR £ A 0 


DATE HUM 


03 

I 


O 


00377 
00 4 q0 
OOhq l 
00 Ho A 
00404 
004 | 0 
00 H l l 
00 H j 2 

00H i 3 
00*»i4 
004(5 
004 | 6 
00424 
00427 
OO43O 
004j3 
00434 
00434 
00465 
0046* 
00467 
00471 
0047? 

00473 

00474 
00476 


l 84* 

1 S 5 • 

166* 

187* 

IBS* 

1 89* 

l 9 0 • 

1 9 i • 

1 9 2 « 

I 93* 

1 9 4 • 

195* 

| 96* 

197* 

| 9 6 * 

( 99# 

200 * 

20 1 * 

202 * 

203* 

204* 

205* 

206* 

207* 

208* 

.209* 


GO TO 190 
1 60 CONTINUE 
print j 7 0 

170 fOR“AII|H| ,37X*'***. ERROR ENCOUNTERED IN JNPuT DATA******/) 
PRJNT 180, LDCOUD ,NF (lES 
160 FORMATlIOX.’LDCOND-^.liiZxi'NFlLES-’im 
ERROR- . TRUE* 

return 
190 CONTINUE 

LDCNDt-LDCONo-1 

CALL FILE! INPUT ,LDCN01 I 

READ (INPUT I t T I TlE < I ) ♦ I-l , 12) 

print 200 , title 

200 FORMAT < I HI , 1 5X »' MODAL TAPE T I T|_E IS **•**♦ I 2 A 6, *••♦•*' ) 

PRINT 210, CT1TLE 

210 FORMAT i ///| 18X »' CA5E TITLE IS •*••*•» l 2 A* ,«*•♦•*• 1 

READ ( INPUT) N0F.NUNBH0*IlDXYZ(n,l»l,N0F),N0DES»(N00E]0U)»I*l 
INODES) t ( ( X H A f < i , J ) » J ■ l |3) • 1*1 iNOOES) » I D M A S S £ I ) i l ■ l »NDF) » G M A 5 5 
7 !LT>T IUT/S7 ,29570 
1*0 

IF(.NOT.AlLHqD) go TO 230 
NNm = MOD£S < l ) 

OMP-OAMP I t I 

IC-0 

IF 1 0 AHP < 2 ) ,GT »O»0 } I C ■ 1 
I F < NNM.GT .NMHAX ) NnM*NMHAx 


OGSdO 

2 10* 


00S02 

2 11* 


00505 

2 12* 


005o6 

2 13* 


005(0 

2 14* 


005 l I 

2)5* 

220 

005(3 

216* 


005 (4 

217* 

230 

005(5 

2 1 B* 


005 ) 6 

2 19* 


00520 

22 0* 


0052 2 

22 1 • 

240 

00523 

222* 


00524 

22 3* 


00526 

22 4* 


0053 1 

225* 


00533 

2 26* 

250 

00535 

227 • 


0053* 

22.8* 

260 

0053? 

229* 


00542 

230* 


00543 j 

23 1* 

270 

00S44/M 

232* 


005451 i 

233* 


00547 V 1 

V\23H. 


0 0 5 5 ) Vy 

\J235* 

230 

OO 552 V 

\ 236* 


005 ( 

MJV237* 


00554 1 

238* 

290 

00555 

239* 


005 56 

240* 



IF ( NNM.GT « NU M 0 M D ) NNH«NUMbHD 
DO 220 1 3 1 » N nN 
MODES ( 1 ) « 1 

1 F ( ] C *NE »0 I GO TO 220 

Damp ( t ) *dmp 

CONTINUE 

GO TO 260 

CONTINUE 



1 - J * ! 

I F ( I .6T.NMMA*) GO 
IF I MQDE5( I ) »nE,OJ 
CONT l NUE 
N N “ " I-l 

1 F < NNM . LE • NUMBMD > 
DO 250 IC2»l,NNM 
I F (MODES £ 1 CZ ) «GT« 


TO 240 
GO TO 2 30 


GO TO 260 



NUMBMD) MODES I 1 CZ ) *0 


CONTINUE 
N N M * N U M 3 M D 


COnT I NUE 
KRJTE ( 6 ♦ QUTp T ) 
I ■ 1 

CONT I NUE 


I ° 1 ♦ l 

J F ( I , GT .NFMAx ) GO TO 280 

IF (FORMIDl 1 > # NE * 0 | GO TO 270 

CONT I NUE 

NFS-I-i 

I-l 

CONTINUE 

1 -1*1 

I F ( 1 .GT.NIMAX) GO TO 300 


DH£ AD i 53 

DREAD 1 54 
DREAD 1 55 
DREAD 1 56 
DREAD 1 5? 
DREAD 1 56 
DREAD 1 59 
DREAD 1 60 
DREAD 1 6 l 
ORE AD t 62 
OREAD t 63 

DR E A 0 1 6 4 

DREAD 1 65 
3 R t A 0 I 6 6 
DRE AD 1 67 
DRE A j 1 6 6 
DRE AD 1 6 V 
DREAD I 7 0 

ORE AD 1 7 } 
DREAD) 72 
D R E A D 1 7 3 
ORE 1 7 4 
DK£AD 1 7 b 
0 R E A D 1 7 6 
DRE ADI 77 
DRE Ay ) 7 b 
DRE AO 1 7 V 
DR£AUl60 


ODD 306 
0003 10 
0003 l 0 
OCu 3 1 3 
0 DC 3 I 3 
COu 32 l 
00032 l 
0 0 U 3 2 3 
0 Ou 3 2 7 
OOD327 
00033J 
000335 
0 0 C 3 4 6 
000 3 5 S 
0 CO 3 5 5 
000364 
000364 
000364 
00 U 4 36 
000441 
CO U M 4 2 
000444 
000446 
COO 4 5 0 
0 0 U 4 5 1 
G 0 0 4 6 7 
G 0 0 4 7 2 
0 D u 5 0 1 


D K E A D 1 a l 

□00506 

DRE AO 1 62 

0 D G b l 0 

OREAD l 8 3 

0G;-5 1 2 

DREAD 1 84 

OOC 5 1 6 

URE AD 1 85 ■ 

CG05 1 t, 

CRE AD l 66 

0 G G 5 2 C 

0 K E A D 1 6 / 

C G u 5 2 0 

DREAD1 sb 

C 0 L 5 2 2 

D«£ AD 1 6 9 

COu 5 2 6 

DRE AD 1 90 

OODs 32 

DRE AD I 9 l 

D DC 5 3 2 

DRE AC 1 92 

000534 

DK £ A U 1 93 

0GG540 

DRE AO 1 94 

0GC5 45 

ORE AD I 9 5 

GCH;554 

DRE AD 1 9 6 

OOD 554 

DREAD 1 97 

OOu 5 5 7 

DREAD 1 9& 

000557 

0 R E A D l 9 9 

000362 

ORE AU200 

000365 

DREAD2U ( 

0 0 u 3 6 5 

DRE AD202 

000367 

DR£AD20j 

000373 

ORE AD 204 

000377 

DREAD205 

0 0 U 5 7 7 

DKEAD206 

00U60 1 

DRE AD 20 7 

00 Q 6 0 4 

OREAD2Q8 

D0U604 

ORE AD209 

000606 


P AOp 6 



DATE 1 1 1 3 7 *4 


P AGF 


7 


••#*,* 

dread 

oos 6 o 

2 4 l • 

00562 

242* 

OQS 6 3 

2 43* 

00 5 6 ** 

2 4 H • 

00566 

245* 

00S70 

246* 

0 0 S 7 0 

247* 

oas7i • 

2 4 8 * 

0 0 5 7 -R 

249* 

006o*I 

250* 

006Q5 

25 1 * 

0 0 6 0 7 

25 2* 

006 l I 

253* 

006 1 1 

254* 

00612 

255 • 

00622 

256 * 

006 23 

257 . 

0062R 

25 8* 

00625 

259* 

00625 

260* 

006x5 

26 1* 

006^3 

2 62* 

00655 

26 3* 

006 60 

264 * 

00660 

265* 

□ 0660 

2 6 6 • 

0066*3 

26 7* 

0 0 6 6 0 

268 * 

00660 

269* 

007hR 

2 70* 

007x6 

27 1* 

007x7 

2 7 2 * 

00750 

2 7 3* 

0075 1 

27 4* 

007 5 I 

275 * 

0076? 

2 7 6 * 

DO 7 6 7 

277 * 

0101 3 

27 8* 

0101 3 

2 7 9 * 

0 103 m 

280* 

01039 

28 1* 

01063 

2 82 * 

01063 

2 83* 

01102 

284* 

01 lo2 

285* 

01 1 l 7 

286* 


G 1 l 2 V I 2 9 7 * 

0 I 1 2 4 ' 2 3 6* 

OU27\\\ ZB9* 

on jtvfM z’o* 

0 1 1 3 1 vl YN 2 9 1 * 

01 I 292 * 

0113? I 293* 
0 I | & 7 294* 

01U0 295* 


«fe*s 


60 TO 290 




30 0 


310 


320 

330 

340 


350 


IT ILDNOOE( 1 » I I »NE.O) 

CONTINUE 
N L 0 N D * I - l 

IF(NLDNO.EQ»l»AND«LONO0EU»ll«fQ»O) LOADS* *F AL5E » 

PRINT 310 

FORM AT 11H l ,50X i * CO-ORO 1 NAT£ D * T A * i / / i 2 6 X » » N OD E ' » 3 X • 1 N 0 • ' » 1 7 X i X 
1 lSx.'Y* ,!5X.*2' ,/'» 
do 330 k “ i »nooes 

print 320» NQOEID(K)»K»(XnAT{K,L>»L»l »3) 

F0RHATI25X,I5»2X,M**I3» , I , .5X,3F15.2) 

CONTINUE 

PRINT 3HD , _ „ , , , 

FORM AT ( l H l , Msx i * MASS MO D E L *- » f 1 ♦ 1 8 A * 1 M A S S F S ARE GIVEN IN Lfi-SEC 2/1 
IN AND INERTIAS are GIVEN in LB-IN. SEC 2»i//> 

PKINT 350 » 1 IDxYZI J) .J.OHaSSI J l *J»l .NDF) 

F0RMATl9l3x«l5,M»*l3.'l , ,AXtlpEl0.3n 
REWIND MTAPE 

WRlTE^JPHlS) NUMBMDiGMASs* IDAnPIK I «K*1 ,NNM) , < MODES! U » 1-1 »NNH) . 

I ( T T A 8 L E I L ) iL=l ,NTMaX) 

WRITE IlPHlS) ( SC ALE < I I » I • I iNF S > 

IFIFORTAP) 60 TO 370 
DO 3 60 5 “ 1 » N T M A X 

WRITE l J PH 1 S J IF Ml > ,F2< I ) .F3U I tFS II ) .F5( I ) ,F6|1 I ,F7 j I ) »F8 I 
t F9(niFlO(Iltnlll)*Fl2ll).Fl3UliFlS(l),Fl5lH»FUU)ifl7(l) 
2F18UliFl»IIIiF20n.),F2ll|l|F22UliF23l|l,F2 , »UliF2Sm,f2All> 

3r 2 7 I 1 I iF28l l) » F 2 9 ( J) , F 30 ! I I » F 3 1 I I ) » F 3 2 I il » F 3 3 l I 7 »F 3 4 1 I »F3S( > 

Mf J6( n ,F37( n ,F30.l I I ,F39( I I t FH0( n ,FHH I > .FM2U > IFH3U) |FH*M I) 

5FR&llliF‘i6m.FH7m.F‘i8ll),FR9m .F50I l > I 
360 CONTINUE 
CONTINUE 

END FILE l P M l 5 
REWIND IPHlS 

WRjTE IhTApE ) {IDxYZII)»I"I*NDFI*I10ACCI^I*K*1*NLS)»<F0RM1D(L * L 
1 J , N F 5 » 


370 


( IXMTI | ,J> 


i K B l 


WRITE IMTAPE ) XREF t YREF » Z RtF i < nOOE I D I H • I * 1 » NODE S ) 
l J* I »3 I , I “ l »NODES > i ( OMASS I A I »K* I iNOF I 

WRITE ImTapE) I (LDCoOOI I » j I i 1*1 * 3 ) »J*l iNlMAXl »l ILDNODElKiM) 

1 N|MAX> .M»l .NLONDI iLDlNO 

WRITE I MT APE ) I INQDFIT i J i j ) t 1*1 i n IMAX) »J*1 »3) •( (FORXYZI iJl » 

1 , J=1 .3) , M AFTXYZI I i t l«» |i> • »3I 

WRITE I MTAPE > IOAmPI II » l * l • NHM I , ( D 1 S PL ( I I *1*1 *NhjM) i(VELQCIK) • * " * 

I nnmj.gmass 

write (mTAPE) STPSIZ 1 B 6 NPRT iENdP^T i (BGNTImI I) *I "1 iNOEETA) • 

I I DEL T 1 M I K ) ,K» i *NDT l ME I 
WRITE (MTAPE) REPORT. LOADS 
WRjTE IMTAPE) TILT 

ENO F I C E MTAPE 
rewind MTAPE 
REWINO I L I N K S 

WRITE {ILINKSJ noorb, nosrml.nosRmr.notank 

WRITE ( I L I NKs > UF 0 RXYZU»U>»I* 1 » 3 )iJ - 1 » 3 J»UAFTXYZUiJ>* 1 “ 1 . 3 ), 

1 J* I , 3 > 

END FILE ILINKS 
REWIND ILINKS 


D RE AC 2 1 0 
DREA^>2ll 
l; R £ A D 2 l 2 
0 R £ A u 2 I 3 
ORE AL 2 1 4 
DR£ AU2 I b 
DRE A32 l t> 
u R £ A 0 2 1 7 
DREAD 216 
D R E A D 2 i 9 
QAEAD22Q 
0 R £ A 0 2 2 1 
DREAD 222 

ORE A D 2 2 3 
C-REAJ224 
DRE A U 2 2 S 
yR£AJ226 
ORE A^227 
DR£Ad22o 
ORE Au22 9 
DR£AD23u 
D R E A 0 2 3 1 
0R£AD232 
ORE AD233 
DPEAJ2 3*1 
DREAD23S 
JR£AD23tj 
DREAD23? 

D R E A D 2 3 B 
DR£ AU2 39 
0R£Au?4G 
DR £ AD 2 41 
D R £ A 0 2 4 2 
0REAU2R3 
ORE AD2MH 
UREAU245 
l)R£Au 2R6 
OREAD247 
DR E A u 2 4 6 
l i 3 ) l-R£ A0249 
DR E AD 2*0 

■I. d r e a o 2 * l 
DR£ A0252 
DRE Au2 5 3 
DR£ AD25H 
DREAD25S 
uPt Au2b6 
DR£Ad257 
DREAdZ^S 
DREAD 259 

DREAD26U 

D R E A D 2 * \ 

DR£AD2 62 
URE AD263 
DREAG26H 


00061 ? 
OOu £> 1 7 
0006 1 7 
G0U62 l 
0 0 0 6 SO 
D 0 U 6 6 0 
000660 
00U66G 
0 0 L 6 6 0 
000677 
000677 

0006 7 7 
000 703 
000703 
000/03 
009720 
000720 
L 0 0 7 2 3 

0007 26 
000/26 
0 0 0 7 S 3 
0 0 0 7 6 H 

000771 
0 G 0 7 7 1 
0 0 U 7 7 1 
000 7 7 l 
0007 7 1 
000 7 7 i 

000771 
00 1 060 
00 1 060 
00 1060 
001062 
00 1 06S 

on 1 06S 
GOt l H 1 
00 l 1 M 1 
0 0 1 l 7 M 
00 1 1 7 H 
00 1 2 1 R 
00 t 2 1 M 
001237 
00 1 237 
00 1 26M 
00 1 26*4 
00)305 
001313 
CO 1 320 
00 1 323 
DO t 326 
001331 
C01 311 

OD 1 3*U 
001357 
001362 
001365 




•*•*,• DREAO 


011*9 

298* 

01 UR 

2 9 9* 

01202 

300* 

01 2q3 

301* 

0120 4 * r - 

302* 

01 2qS 

303* 

0 l 2 0 6' 

309* 

01207 

305 • 

0 1 2 | 0 

308* 

012J i 

307* 

0 1 2 1 3 

30 B • 

01 ZI** 

309* 

0 1 2 1 5 

310* 

0 1 2 1 5 

311* 

01230 

3 12* 

01236 

3 13* 

0 1 2 1 D 

3 19* 

0 1 2h 6 

315* 

0 1 2 r7 

3 16* 

0125 1 

317* 

012*6 

318* 

01267 

319* 

01270 

.320* 




D»t£ 1 I 1 i 7 H 


* K I T E U ST APE J (FTIl.e<n*I-l«2>* , TlTlE(,>>»J*t«10)»<C'riTI-ElK>iK»l. 
112) 

engjd».true« 

extfor*.true. 

LNK», FALSE* 

N E N G = 0 
N L 1 N « * U 
580 CONTINUE 

N L I NK-NL t NK * l 

I F ( NOOF l T t 1 ,NL INK ) .GT »01 GO TO 3BQ 
N l_ I N K * N L I N < - J 

NLKF'NL I NK*l 2 

AR I TE ( 1 STAPE > ENGIO»CXTFOAiNENg»NFS»NLKF iNNHiLNKtBGNTiMl 1 ) i 
IBGNTIMnOELTa) 

WRITE t I 5 T A P E 1 « FORM 10 ( I > . 1“ I »NFS J 

IF f N'.'M * L E « 0 l GO TO 37S 

WRITE IISTAPE) (MODES**) »K*l »N n«> 


375 CONTINUE 

I F < NL 1 NK * L.E » Q 1 
WRITE USTAPEJ 
38b CONTINUE 

return 

end 


GO TO 385 

( IfORXYZ t I , J ) t l » l » 3 ) 1 < AFTXYZ Ik »j) »K*1 » 3 1 * j * 1 » NL J NK 1 


0«EA0 2 8 5 
DREAU266 


00 l 3 75 
00 1375 
001920 

00 1 922 
001923 
001 929 
001 925 

001 927 
00 1 ^27 
00 l H 3 1 
001936 
001991 
00 1 99 3 
001993 
00 1 *i 6 R 
001975 
00 1 sO 1 
00 1 S 1 S 
00 1 S l 5 
001^20 
001*93 
00 1 *93 
0 0 l 6 DR 


td End of collation; n0 diagnostics* 

i 
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4.4.2 Subroutine FCREAD 


The purpose 

of subroutine 

FCREAD 

is 

conditions file. 



STORAGE: 




IBANK 

1017 q 



DBANK 

11746 8 8 



PARAMETERS : 

Size 



NTMAX 

50 

Number 

of 

NNMAX 

150 

Number 

of 

NMMAX 

50 

Number 

of 

MAXENG 

3 

Number 

of 

MAXEID 

6*MAXENG 

Number 

of 

MAXFEX 

6* NNMAX 

Number 

of 

MAXLNK 

6 

Number 

of 

MAXEXY 

3*MAXENG 

Number 

of 

MAXFXY 

3*NNMAX 

Number 

of 

MAXLID 

6*MAXLNK 

Number 

of 

MAXLXY 

3*MAXLNK 

Number 

of 


Description 


- max 

- max 

max. 



INPUT VARIABLES: 


FCFILE 

L 

If 

true read flight conditions tape 

FOCOFL 

L 

If 

true read force coefficient file 

STARTM 

R 

Start time for the run 

ENDTIM 

R 

End 

time for the run 

MACDIF 

R 

Accuracy requirement for MACH 

ALFDIF 

R 

Accuracy requirement for ALPHA 

BETADF 

R 

Accuracy required for BETA 

DELEDF 

R 

Accuracy required for DELTAE 

DELRDF 

R 

Accuracy required for DELTAR 

IFCTAP 

I 

Unit number of flight conditions tape 

IFCFIL 

I 

Unit number of force coefficient file 

OPFCHK 

I 

Printout control 

OUTPUT VARIABLES: 




Type 

Size 

Description 

MACH 

R 

NTMAX 

MACH number array 

ALPHA 

R 

NTMAX 

Angle of attack (ALPHA) array 

BETA 

R 

NTMAX 

Yaw angle (BETA) array 

DELTAE 

R 

NTMAX 

Elevon deflection array 

DELTAR 

R 

NTMAX 

Rudder deflection array 

CNFGCK 

A 

20 

Configuration description 

QPSI 

R 

NTMAX 

Dynamic pressure array 

TIME 

R 

NTMAX 

Flight condition time array 

NDMINC 

I 

1 

Number of flight conditions stored 

TAPE AND OTHER 

MASS 

STORAGE 

INPUT: 


Input to this subroutine includes flight condition file data 
containing previously described variables. The data is 
read from unit IFCTAP which is numerically designated as 
unit 19. This unit must contain the tape containing the 
desired Batch Flight Conditions File . The format of this 
file is described in Appendix A. 


ERROR MESSAGES AND WARNINGS: 

o " TliE REQUESTED START TIME IS NOT ON THIS FILE. SOME 
RECORDS MAY NOT BE PRESENT". 

The run time is automatically set to the start time of the 
flight conditions file. 
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• "THE REQUESTED STOP TIME IS NOT ON THIS TAPE. SOME 
RECORDS MAY NOT BE PRESENT". 

The stop time is automatically set to the end time on the 
flight conditions tape. 

PRINTED OUTPUT: 

The printed output from FCREAD is controlled by input 
variable OPFCHK: 

1. If OPFCHK = 0 Only the title of the flight conditions 

tape is output 

2. If OPFCHK =1 No additional output 

3 # jf OPFCHK = 2 Namelist INPUTl and INREPT are printed. 

INREPT each time a flight condition is 
read . 

4. If OPFCHK > 2 Namelist LKMODS is printed for each flight 

condition read. 

Refer to Section 4.3.1 for namelist description. 

FLOW CHART: 

A detailed flow chart of subroutine FCREAD is shown in 4.4. 2.1. 
LISTING: 

A listing of subroutine FCREAD is shown in 4. 4. 2. 2. 



4*4. 2.1 FLOW CHART OF SUBROUTINE FCREAD 

PROM DREAD 


( Enter A 
FCREAD^ 







• 

REWIND FLIGHT 
CONDITIONS TAPE 






READ 

ITITLE, 

NLINK, 

FLIGHT CONDITIONS TAPE- 
ENGID , EXTFOR , NENG, NEXT 
NMODES, NLK , START, STOP 

Wi ■ »■ 

^ 110 



100 

T 

READ 

ENGINE I.D. 's 

-J 



[READ EXTERNAL! 
I FORCE I.D. ' S 


! — 

READ ENGINE 

210 r 


READ EXTERNAL 
FORCE 

COORDINATES 

V 

r 

COORDINATES 


LNK 




MODES. 


40 0 IT 

T 



READ LINK I.D. 


k 


READ MODES 


1410 



NUMBERS 


1 


READ LINK 
FORCE 
LOCATIONS 


WRITE INPUT1 
NENG , NLINK , NMODES , LNK, START, 
STOP, ENGID, IDENG, ENGXYZ, EXFOR, 
IDEXT, EXTXYZ MODES, IDLINK, XYZLMK 
NEXT, NLNK, STARTM , ENDTIM 




FIGURE 4-4 , 

SUBROUTINE FCREAD FUNCTIONAL FLOW 

B-16 












READ ( IFCTAP ) 

FTIME, FMACH, FALPHA, 
FBETA, DELE , DELR, FQPSI, 
THRUST , XFORCE, ACCEL, 
CGLOC — 



540 




READ (IFCTAP) 

FTIME, FMACH, FALPHA, 
FBETA , DELE, DELR, FQPSI, | 
THRUST, ACCEL, CGLOC 


EXTFO] 


525 


READ (IFCTAP) 

FTIME, FMACH, FALPHA, 
FBETA DELE, DELR, FQPSI, 


READ ( I 
FTIME, FMAC 
DELE, DELR, 
ACCEL, CGLC 

FCTAP) 

Hi, FALPHA, FBETA,. 

FQPSI, XFORCE, 

5C 





READ (IFCTAP) 

FTIME , FMACH , FALPHA , FBETA , 
DELE, DELR, FQPSI, XFORCE, 
ACCEL, CGLOC 



ACCEL, CGLOC 


(FTIME 
STARTM) 
< 

STRTDF 




TIME (II) 
MACH (II) 
ALPHA (II ) 
BETA (II) 
DELTAE (II) 
DELTAR (II) 
QPSI (II) 

= FTIME 
* FMACH 
= FALPHA 
= FBETA 
- DELE 
= DELR 
= FQPSI 


[ 


.ill; 


$ 


WRITE NAMELIST 
INREPT 


540 






FIGURE 4-4 (cont'd) 
SUBROUTINE FCREAD FUNCTIONAL FLOW 
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FIGURE 4 -4 (cont'd) 
SUBROUTINE FCREAL) FUNCTIONAL FLOW 
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F C#E*0 


• - UFoh • 5 P,FCR£AO»FCKEAD - •- 

FOR SeIX-U'I 4/74-17:07:47 I24*> 

SUBROUTINE FCREAD 'ENTRY POINT 001006 


STORAGE USEo: COOEtM 0ul017l 0 A T A ( 0 J 01 1 7 -H 6 ; blANK C OmmQN ( 2 1 oooooo 
Common blocks: 

0003 AERO 00057 4 

„_„ _UnOH- -- 1 F T APE 000005 — — 

Uo05 0 L Ovj 1 C 000005 

-- EXTERNAL REFERENCES iJ^'OCK. name 1 ■■■ - • 

0fl06-— NflE.V* ! -f - — 

OoO? NRBUS 

0010 N 1 0 1 t - ... 

0 0 1 1 N 1 0 2 I 

00 12 N-VOUS 

00 1 3 NrtNLS 

00 l R M£RRJS - - — 


STORAGE ASSIGNMENT (BLOCK* Type* RELATIVE LOCaMON, NAME) 



ono 1 *<2 
- ooo 1 J 1 
0001 35 
ono 20 6 
000262 
000346 
ono4f)P 
. .. 0 o Q 4 b 7 
01 1655 
00054 7 
00056U 
000661 
000724 
000570 

I OOOJ/H 
R 000226 

L onouoo 

K 011443 
r 0 1 1 44U 
1 007170 

OM 724 
I DM457 
R OOOOOO 
I 011437 
I 01 1452 

OQ0OO2 

R 01 1447 
r nn??i4 


noi 

1 4 L , L 

2 1 OG 

2 ■* r > Cj 

30 3 s 

3 4 7 u 

4 0 2 G . 

4hoo . _ 

5 0 u 0 F 
5 1 1 o 
54UL 

5 6 2 o 

6 1 3 G 
ALFQ1F- 
CNF GCK 
OEL T AE 
EN & 1 u> 

F B E T A 
F T [ ME 
l DL l N K 
l NJP* 

K 

MACH 

NLH< 

NljMAF 

OPTOTA 

STRTDF 

* Y 7 I N* 


0 jO 155 

• — OoOu 4 t> • 
0002 1 2 
000225 
0 j 0 3 3 4 
0u03S 3 
U 0 D 4 1 3 
000464 
0 1 l *75 
U U 0 5 5 4 
0 0 0 * 4 2 
000 700 
000731 
R .000062 
R 01 1444 
H 000310 
R ClOO 1 1 5 
U0U3 72 
I 011451 

. 0 0 0 U 0 4 
OuOUU 1 
011633 
1 000033 

1 0 | 1 43 3 

1 000004 

R --0QQ4 22 
R Oil 455 
R nil 141 


1 10L 

1 4 7 a 

2 1 PL 
2 5 6 G 
33 1 G 
J 5 3 G 

4 0 6 G 

44 MG - 
500 l F 
51 5G 

5 4 3 G 

5 7 3 g 

6 1 7g 
alpha 
oele 
OELTaR 

e n r, x y 2 

FCF 3 lE 
1 

ifcfil 

1 NpUT 

LKM005 

MODES 

MMOOt S 

OpFCHK 

UP 5-1 -- 

STRTm 

’FT * 


D 0 F, 0 7 4 
OuO 1 2 Li 

000 1 5 1 

DOO 2 4 6 
000334 

00040 1 
0 00 2 6 * 
00050 t 
0 1 1651 
QUQ42U 
000642 
000700 

OQO70B 
000 1 44 
000572 
0 1 l 450 

ooouoi 

Q I 144 1 

ooouoo 

cooon J 

0 1146? 
0 0000 2 
Oil 431 
0 1 1 454 
uO0UO3 
Oil 434 
007 322 
n 1 12 4* 


DATE Jl 1 4 74 


PAGE 




0 0 u 1 


000b 1 3 

1 26g . 

Ung 1 


0 n n 1 n 3 

I 3 0 L 

- 0 u U 1 - 


OUU l 7 > 

20DL 

OUy r ■ 

... 

nnG 1 35 

2u Q G ' 

cool 


000 1 72 

2 3 3 G 

OUO 1 


0 n u l 7 2 

2 3 5 g 

ouu 1 


000246 

2 7 3 G 

000 1 


0 n 0 2 3 t 

3 U 23 L 

O 0 u 1 


0 0 u 3 4 1 

3 4 g G 

Ouu 1 


0 n o 3 1 1 

34iy 

00 u 1 


0 uO 4 0 1 

3 /5(J 

ouu 1 


0 OU 2 5 3 

4 0 0 L 

Ouu l 


Du u 4 5 2 

4 3 l b 

ouu 1 


000452 

4 3 J G 

- OUU l 


O u 0 5 2 ) 

4 6 7 G ’ — 

OoO 2 


ono5 76 

4 7 j g 

000 1 


0 0 u 5 0 l 

50Sl 

cool 


Ou036q 

5lUu 

Ouu 1 


0 u 0 4 7 i 

5 2 5 l 

Luo 1 


0 0 U 3 3 3 

5 3 u L 

oool 


OuU* 4 7 

5 5 2 G 

OuO 1 


00U*54 

b 5 6 G 

QUu 1 


0 U U 7 1 7 

60 7 u 

Ou U 1 


0 0 U * 6 * 

* l G L 

OUU i 


0 u U 7 3 5 

& 3gL 

OOuO 

R 

0 1 l 15 0 

AC CEu 

. 00 0 3 


OUub 7 i 

d E T « o F" 

0 0 u 0 


O 11 1 56 

C G L 0 C - 

UOuU 

K 

0 l 1 4 4 b 

ULL« 

G UO 3 


OP i_ 5 7 J 

b'l.L«uF 

0 00 3 

H 

Q U (J 4 2 1 

t N D 1 IK 

CLOT 

.« 

1 : 1 l 4 56 

LdUl M 

OuuO 

K 

0 U i t 5 4 

t-A TX Y Z 

0 uUO 

ti 

0 1 1 * 1 2 

2 A_PHA 

00 0 3 


OuU 37 j 

F 0 C u r L 

Ou on 

R 

.11 ivo 

i 1 

OUuO 

l 

OuU 126 

i !j E 0 G 

OOUO 

i 

0 PO 1 Vl 

l 0 u X T 

Ou J 4 


Q UNO L) a 

1 F N* - 

Ou uO 

1 

0 1 14 60 

l 1 

OUuO 


0 l i 56 u 

1 UMfc-pT 

OuuO 

l 

niMiuit j 

J T 1 T L L 

OUUO 

1 

0 11407 

LN<FOR 

Ouu 3 

H 

0 0 0 5 6 7 

r •; A C 0 2 F 

OOuO 

1 

0 1 l 43o 

U E X f 

0 U UO 

l 

0 1 14 37 

24 L l U < 

OUu 3 

I 

0 0 u 5 6 o 

UUHliiC 

Ou 00 

i 

0 1 1 t 3 

hUI'.LLK 

00u5 


QdUuO ) 

u P m u A 

0 u i) 5 


onUuou 

U P K ti A 

- OUO 3 

H 

000 4 2 u 

S T A K I H 

OU OQ 

r< 

n 1 1 4 3 5 

b Tup 

QU 0 3 

R 

0Uu5U4 

T I m£ 

Ou 00 

R 

02)734 4 

X F UR C E 

ngtio 

N 

n i i3?5 

7-F T AuD 







•••♦** 

fc«e*o *• 

1 • »♦ 

ooini 

i • 

5 .j „ ^ i U T I'* 

00 l 0 3 

2* 

P A h A m E T E R 

00 l oR 

3 • 

p A p A -• E T t It 

00 i o R . 

*♦• 

1 M A X F £ X = 

oaioR 

5* 

2 M 6 < F X Y 3 


00105 . 
00 1 0* 

D a 1 o 7 
00 1 1 0 
au i io 
001)0 
DO 1 1 0 

00 ] 1 0 
OU 1 1 l 
DOJ j l 
001 1 1 
001 ] 2 
-O0U3 
00 J t s 
00115 
00U^> 

00 1 I 6 
001J6 
DO! ] 7 


6 *. 

7* 

6 * 

9* 

10 * 

1 I * 
12 *. 

1 3. 

1 H* 

1 5 • 
16* 
17* 

1 e*. 

19* 

20 * 

2 l • 
22 *- 
23* 
2 H • 


' : ;r 


CO 

t 

K> 

O 


001 1 ? 

25* 


00120 

26* 


OOJ 2 1 

27* 


00122 

28* 


00 123 

2 9* 


0012*1. .... 

30* ...... 



00 132 

3 l » 


DOlsS 

32* 


00 l S 3 

33* 

So 1 0 

00 1 5* 

3 *4 • 


oa iss 

35* 


00 1 

. .. 36* - ... 


OU 1 &7 

37* 


001 s7 

38* 

C 

0 0 1 5 7 

39* 

c 

ooua 

*40* 


0016 1 

*4 1 * 


00162 -- - 

.. *4 2* .. _ 


0Q1 6*4 

*4 3* 


00 16^ 

4 H • 

1 20 

00 l 6 7 

45* 


00170 * 

46* 

5000 

00t7i\ \ 

47* 


00 1 7 l\\ 

4 8* 

L - 

130 

ooi 7 arv\ 

\ 49* 


00 I 7*4\\ 

K 50 * 

140 

00 1 76 X 

V 51* 


00177' 

52* 

so 0 1 

OUI77 1 

53* 


00200 

54* 

1 50 

002n2 

55 * 



F f R l Ad 

; i T ,1 A A = S 0 » NMT a X B 1 S ‘J 

N;1M AX = 50 »n AXEnG»3 . MAXE10 = 6*KAXEr. U i 

‘f*iHAX»MAxLN< = 6,,lAx£xY = 3*MAXENO*MAxFlO’0*NN:'lAX» 

! < H M A X t HAXL 1 0 = 6« HA X L N K • MAXLXY B 3*HAXt-NK » 

• REAL ;lACH ( OTMAX 1 , MACD IF - - 

INTEGER CNF5C<t20J, OPFCH k 
logical ENC. 1 0 * ExTF0R» lnk 

D 1 L N S I 0 ! < ! T I T L E ( 2 H 1 »MUUtSt^MMAXl » ENG x Y Z 1 3 iHAaE^uI > I L<c. f 'CjC iiAXfc.i la > * 

1 I()£xH it AAFlOj.ExTKYZtJ.HAXFExi'lDLlNKlMAXLlOj.AULNKU. MAXLXY), 

2 Ti-'^'jST * xF0^Ctl6»NijMAxl» AC££l(6I* C G»- 0 C ' ^ 4 i 

3 ^ F T A I'm'HAa) 1 ZETAO*NmmAx)» Z t T A f>0 1 N W rl A X ) » 

*4 L'i<F0S 1 3 .MAXLNK > 

COMMON / A £ H 0 / M A^H » A^pHA* qETA* dElTAE* dEl^AR. FcE^L^* FOC^FL* 

1 c'.FGO'’ jURThi EnoT 1 » * uPSl» TlrtE. HuHINCi MACOlFf ALFjjlFi 

2 0 F. T A J F » 'jELEOF. D f L R 0 F 
CUM'ON/fPTAPE/ICARDSilNPUr, tFlN.lFcTAP»!FcFlL 

-C-lH«0N/0L0iI C/0P«9A .0PMi)A,UPT0T **0PL00,0 PFCHk ' 

0 1 M F *■’ 5 l 0 ; -i r I ‘1 £ 1 N T M A X 1 • G Ps 1 t N 7 N A A l 

DIMENSION A LpHA l NTm A X ) » BETajWTMAx)i OElT a£ ( NT WAX 1 » DElTAH l N T M A X 1 
NA»E L I5T/15 PuT 1/ NENGtNLINKiN«aDE5iLNKiS7AKT.STOPt£Ni ) ID.lDElYi»» 

1 l -jr,X FZ I £ A T FOR . I DE X T I EX Tx r Z . MOOES • IDL 1 NK , X YzUNK • :<E)( T . NLUK 

2 t STAR Pi, C 4 OTIM 

- ua-lL 1 ST / [ v*EpT / FTlHEtFHACH»FALPHAtFBETA,L)E L E.DtLK,F^p5l iThKuST* 

1 x F 0 P C E »ACC£liC5L0C 

N A M F L I ST/LiOODS/ ZE TAdD*ZETAO,ZETA»LNKFOk. 

R cl it I N 0 l F C T A P 
5 T R T !>F = -,0[)1 
E Nil IFF = .001 

R L A D ( l F C T 4 p 1 MTITLEUItl 3 1 » 2 '4 > " " . 

READ 1 1FCT AP) ENGID.EXTFOpiNEN(,* N ExT iNlI n A*NmODE5*lNK»STAKT iSTOP 
,v;<(TE 16.501 y 1 < 1 T 1 T L E 11 » , 1-1.24) 

F Jp 'i A T UhI t 1UX.12A6/6X.12A6) 

tl u M x F = N E A T / 6 
NUmL’IK = !)LlN< / 6 

Nome mg = nen q / 6 .. ... -- - ■ ■ 

N i_ f; < - N L I N < / 6 

STpT^ IS TmE START TIME °F THE CONDITIONS ON THE FIl£ b^lNG INPUT 

e jdtn is f he end time of The condition s being input 
STrT'I = start 
E N ;) T M * ST-Jp 

IF (5THTM .Gy. ST ARTM > •- GO TO 12U ’ 

GO TO 1 30 
WHITE (6.5000) 

STrTM = START* , _ . . 

FORMAT ( / / 5 X » * THE HEOUESTEO 5Ta«T TIME IS NOT ON THIS FILE.'/ 

1 'IX. 'SOME RECORDS MAY NUT BE PRESENT** 1 

IF (ENUTM « L T « ENDTlMl GO TO l ** U — 

GO TO ISO 
WHjTE 4 6 » S 0 0 l ) 

E N d T 1 * E N D T 1 M 

FORMAT I / / & X » * THE REQUESTED STo p T 1 ME IS NQt ON ThlS FILE* / 

l mx.’SOmf records may not be present.*) 

IF (NENG *EU.. U.) GO TO I 1 D . _ - 

IF (ENG1U) GO To 100 


nATE I 1 • R ? ** 


UOHJ-iD 

0 0 0 mi i ii.f 

OPuuiKl’ 

C 0 mi u 0 ij 

DSilUOU 

OOt'UUU 

0 0 1..I Mi 0 0 

0 0 L -j 0 0 
DOmiUOU 
UCinUOO 
u 0 ■_> u D u 
-UuUUOO ' " 

onuuou 

KOODOO 
a □ ( j u o i3 
D n ij U 0 o 
UOu-JOU 
-oouuou ■ 

COttUOU 

0 n u ~j oo 
U 0 u g 0 0 
00 u DO 0 
Li 0 u ^ mi 0 
0 0 o *J 0 1) — 
lOiiUdu 
C 0 u U J 0 
OUi‘0 00 
00UU02 
uQu^UH 

- UOfHJOS 
0 0 Li J l 6 
C l 0 u mi J o 
u 0 u J 5 1 
U 0 u Mi S 1 
0 J lJ u S h 
uDi;0S6 
u n 1 1 J 6 ] 
UDu Jr> l 

onuisi 
(j 0 j 0 6 ? 

0 0 0 P 6 H 
tint; ii66 
U 0 1 . o 7 2 
0 0 u o 7 4 
UOii t 00 
on:* 103 
0 0.1 1 o 3 
- 00 u t 0 3 
OOu t *)7 
U Liu l l 1 
UOU 1 IS 
000 120 
UOU l 20 

- OOilWO 
0 0 U 1 2 k 
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•••*.* FC«E Aq 


0 ATE IlfH 


PaGE 


3 


002 ( 5 - 

002 j 6 
0 0 2 2 *• 
0022S 
00227 
0023 1 
00 2 4 2 •- 

00 2 4 3 
00 25 I 
00 2 5 2 
00254 
00 2 i 2 

00 2 6 3— 
00265 
00 2*7 
□ 0 3q 0 
OU 3 0 1 
0 U 3 0 2 
003(0- 
0U3 j H 
0 0 3 1 S 
DO 3 | 6 
00320 
00320 
00320 - 

003 20 
0035? 
00360 
00362 
00362 
00362 

004 ( 2 
004(3 
004 (5 
004(7 
004(7 
004 ( 7. 
004 (7 
004&0 
0045 1 
0045 1 
0045 1 
00451 


1 IDLJNKI I 1 i 1*1 , N L I N K 1 
1 i - ■* HR 1 Te-< 6 . INPUT 1 1 


00477 

1 00 * 


Go TO 340 

005 Q'J 

1 0 l ♦ 

530 

REAO ( IFCTAP 1 . FT IME 

005o0 

1 02 • 


1 1 A C C E L < 1 1 » 1*1.6), 

00521 , 

103* 

5 4 Q 

C 0 N T I N 0 £ 

00522 { 

104* 


IF ( < F T I ME - 5TARTM) 

_ .0052 °k -\ - 

105* 

.. 

TIME (ill = Ft IME — 

0U52S\ ^ 

106* 


M A C H ( U 1 = FmACH 

0052() \ 

v 107* 


alpha! m «* falpha 

OQS27M 

\i oe* 


BE T A < 1 1 1 3 FBETA 

00 S 30 KX> 

k 1 09* 


OLlT AE (111 ■ DELE 

005 3 l tX 

J 1 1 0 * 


DEL? * R< HI 3 DELR 

„ DOS 32 

111 * — 

— 

qpsi < i n = f «ps 1 

00533 

1 12 * 


1 F { OPFCHK » gt« n 

OO 53 / . 

113* 


IF (.‘(LINK « EQ« 0 .0 


‘ GO TO 1 1 0 ' "" 

READ (IFCTAP) < IDEng l 1> • 1 “1 iNENGI 

CONTINUE 

IF (NEAT . ECl . 0) 60 TO 210 

IF (EXTFQR) GO TO 200 - - 

READ (IFCTAP) 1 ( EXTXT Z 1 < , 1 1 ,<■ l *3 ( » I » 1 .NgMXF ) 

-60 TO 2 10 ~ 

HE AD (1ECTAP) (it>ExT(l(*I»l»NEXTj 
C 0 NT 1 NU£ 

If inmodes »(_e» 0) go To 3 qQ 
READ 1 1 F C T A P • <M00ES J Il , l“lt N «°DE5l 
CqnT t NUE 

If (NL1N< 60--T0 RIO 

IF 60 TO 400 

READ (IFCTAP) 1 1 X T Z L NX t X * I 1 i K » } » 3 ) , I » 1 , NUML NX 1 
GO TO 4 (Q 

READ (IFCTAP) ( IDLINKU I « 1*1 tliLlNK) 

CUNT 1 NUE 

IF 10PFCHX -GT.-H—* «R] Tf-l 6 i INPUT l ) 

11-1 

continue 

IF <NENG * E 0 » 0 «0R. NEXT .EG* 01 GO TO SI 

READ 1 I F C T A P ( FT IrfE . F M A C h . F A L P * A , F B E T A , 0 E L E ♦ 

1 ((THR05TtK.|), K»l,6), 1 = l . NUrl E N G 1 » 

2 ( ( XFGRCE ( * , 1 1 , XM.6), j - ■ ‘ j , HUM *F 

3 (ACCElU), 1 = 1.61, ( C 6L0C ( I 1 i I“1.3> 

GOTO 5 4 0 

[F IN ENG »EQ. 0) 60 TO 5 20 

READ t I F C T A P ) F T 1 hE • F H A C H . F ALpH A , F 0 E T A . DE LE , 

1 ((THRUSTiX.il. <*1,6», l = i , N UttE N G > * 

2 (A CC EL ((). -1*1.61, (CGL0C1 11 , -1*1 .31 

GO TO 64 U 

IF (NEXT »EQ # Ul 60 TO 530 
IF l E X f F 0 R ) GO TO 52S 

READ ( IFCTAP) FT1ME .FmACH.FALpHA ,F0ETA,OELE . 

• THRUST (1,1), 

1 ( ( XFURCt ( K ,.l 1 , K»l, 61,1 = l.HUMXF), 

2 (ACCtLlH. 1 = 1.6), (CGLOCdl, I*t»3l 
6 U TO S4U 

READ (IFCTAP) F T I HE . F(1 ACM . F ALpH A , FBET A . OElE , 

1 ( X F OK Cc ( l , 1 1 , 1 = 1 .NEXT) , — 

• T MRUS T ( l , l ) , 

2 . ( ACCELl I 1 . 1 = 1 ,6) ,- (CGL0C1 1 > . I-l *31 


sTRTqF 1 


WHIT£ (6.JNREPT1 
!• NHwOES ♦ E 3 • D) 




4.4.3 Subroutine File 


The purpose of subroutine FILE is to skip files on a tape. 

STORAGE : 

IBANK 40g 

DBANK 35 g 

VARIABLES : 

FNAME 
NSKIP 
I ST AT 

ERROR MESSAGES: 

IMPROPER STATUS VALUE FROM FSBSFL IS XXX. 

FILE NUMBER XXX CALLED BY XXXXXX." 

For correction check the number of files on the referenced, 
file to make sure there are as many as expected. 

LISTING: 

A listing of subroutine file is shown in Section 4.4. 3.1 
LIBRARY ROUTINES REQUIRED: 

The FSBSFL routine is required by subroutine FILE to perfqrm 
the file skip function. Appendix F has a description of this 
routine and its use. 


X 1 Filename 

X 1 Number of files to skip 

I I Status variable for FSBSFL 



ERE 



^EOR.S P.FIlE.MLF 

FOP SE2C-0 1 /23/7&-0DI 3n: 53 c*» 



SUBROUTINE TILE 


entry point nnrosi 


storage used: COPEM) onnnMu: data(o) 0000271 blank commons) oooooo 

co Mm on o,lcc*s: _ ... 

00 0 3 RNAMF 0000(11 


EXTERNAL' REFERENCES f PIOC 1 '' ♦ NAME) 

hoom rS^S EL ~ 

rons mt 00 ? 
nno a *j 1 0 2 p 
0007 N£°R3S 


C/1 

c 

cr 

H 

0 

e 

rt 

H- 

3 

n> 

01 

M 

s 

f 

K»- 

W 

ft 

!-*• 

3 

KQ 




STORAGE ASSIGNMENT -tBLOCKV"TYPE»-RELATlVE LOCATION»-NAME) 

001 - '0000 12 ' inc" oaoo — oooooi- inoar ooo 3 “R~oooooo~r*£iNG 000O' 


000023“ rti'JP* 0000 T '000001 



no M a 

no 1 I 7 


1 0 — 

t oon 


- SUBROUT I NE-F lLE-trNAME-,-NSK IP 1 

common /rname/cal I ng 
-integer fnake 

CALL ESRSFL (FNAME, N 5 K I P » ! ST AT ) 

-IF { t S T A T * N £ • 0) GO TO 10 

RETURN 

-WRITE {At lono) -- JSTAT ♦- ^NAMEr-CAt-lNL rSRSrl !« 

FOpMT (///* 1 OX I *|HPROPER STATUS VALUE FROM FSBSFL IS 

1 ,SX 

RETURN 

END 


J. 

• FILE NUMBE-R * *» 13* *♦*» * C A Lt ED B Y * A A ) 


13 


COOOOO- 

oooooo 

oooooo 

oooooo 

QOODOR 

000006 

0000 12 - 
00002 1 

00002 J 
000021 

000037 


no j ?" 



APPENDIX C 


Sample Document Written to Follow 
the Suggested Format 



COMPUTER PROGRAM DOCUMENTATION 
APPLIED/INERTIA LOADS TRANSFORM PROGRAM 

(TRAIL) 

by 

F. M. Stratman 


Prepared Under Project No. 3200 T 

by 

Lockheed Electronics Company, Inc. 
Aerospace Systems Division 

For 




National Aeronautics and Space Administration 


LYNDON R. JOHNSON SPACE CENTER 


Houston , Texas 



Applied Mechanics 
Department 641-11 
CPD 404 


COMPUTER PROGRAM DOCUMENTATION 
APPLIED/INERTIA LOADS TRANSFORM PROGRAM 

(TRAIL) 


Prepared by: 



F. M. Stratman 

Structures Technology Section 


Approved by: 

D. G. Probe, Supervisor 
Structures Technology Section 




R. T. Theobald, Manager 
Applied Mechanics Department 


Lockheed Electronics Company, Inc. 
Aerospace Systems Division 
Houston, Texas 

January 1975 


LEC-3725 




rms FORM MUST BE COMPLETED BY TYPEWRITER 


014 01 7 PROGRAM NO 

JSC G134 


JSC COMPUTER PROGRAM ABSTRACT 


0 I 1 4 D A T E ( MM DDYYl 

5/22/74 


01 20 TITLE OF PROGRAM (62 CHARACTERS MAXIMUMI 

Applied/Inertia Loads 
Transform Program (TRAIL) 


01 72 SYMBOLIC name 
[9 CHARACTERS 
MAXIMUM) 


TRAIL 


02 37 KEY WORDS (B MAXIMUM SEPARATED BY COMMAS) 

Transformation, inertia loads, applied loads 


PARENT PROGRAM 

02 14 

CATEGORY 

02 16 SITE 

02 19 

PROGRAM NO 


WHOM TO CONTACT ABOUT THE PROGRAM 


05 U CONTACT (LAST 
N AME) 

Schwartz 


DATES 


0 5 310RGN 10 5 39 PROJECT NO [05 45 NASA 
CODE I | CEN TER 


32 0 0T 


05 58 REVISION CODE 


05 43 STATUS 

05 49 



|~1 A - UNDER DEVELOPMENT 

Q IS NOT FOR 

SH A RING 

P3 B. operational 

6. LIMI TED 

I - "] C. COMPLETED 

El SHARING (SEE 

A BST R AC T) 


TIME AND COST FOR DEVELPOMENT 


CARD 

NUMBER 


05 54 

COMPLETED 
MM Y Y 

[~1 A. REVISION 

1074 

□ B. cancellation 


59 60 61 62 63 64 65 66 


ABSTRACT 


05 69 COMPUTER 
TYPE 

UN I VAC 
1110 


74 75 76 77 7B 79 B0 


ELITE MARGINl PICA MARGIN 


loads model of 




RELATED DOCUMENTATION (66 CHARACTERS MAXIMUM SEPARATE EACH REF BY COMMAS) 


42 I rv 


JSC Form 142 {Aug 73) 


NASA-JSC 
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1.0 INTRODUCTION 


TRAIL is an ISAS program intended for use as a batch run pro- 
gram. Its purpose is to transform body loads from the mini- 
mum node body load model to the finite element model which 
has an expanded number of nodes. 

This program calculates forces and moments for the finite 
element model. The types of forces and moments which are 
considered by this program include modal inertia, rigid 
body inertia, and applied external forces and moments. 

Loads Model input data comes from several files. Rigid 
body inertia data can be obtained from the User Modal File 
or User Weights File. Modal data is input by the User Modal 
File. Applied Forces and Moments are copied from the 
Compressed Aerodynamic Forces and Conditions File. Inertial 
and Modal accelerations are copied from the Flight Conditions 
File. Transformation equations are set up for input by the 
analyst. For checkout of this program, transformation matrices 
were input by cards. The intent for future ISAS work is 
to have often-used transformation matrices stored in the 
Transform Equations File. 

Program output is in the form of a NASTRAN compatible file 
of forces and moments. The output is formatted as NASTRAN 
Force and Moment cards and stored in the NASTRAN Input 
Loads File. NASTRAN bulk-data, FORCE and MOMENT cards can 
also be output. 

Requirements for this program and its documentation were 
obtained from References 1, 2, and 3. 



2.0 PROGRAM FUNCTIONAL DESCRIPTION 


The computations performed by this program include the deter- 
mination of modal acceleration forces and the rigid body 
inertia forces for each node-degree-of-freedom. When these 
forces are calculated for the loads model and after external 
loads are read into the program the forces are transformed 
to the finite element model. The flow and mechanics of the 
calculations performed by this program are shown in subsections 
of part 2.0 of this document. 

2.1 General Description 

The basic flow of the program is under the control of routine 
MAIN and is illustrated by the flow chart in Figure 2-1 . 

2.1.1 Rigid Body Inertia Forces 

The matrix of rigid-body forces and moments {FRB} acting on 
the loads model is calculated by postmult ip lying the inertia 
matrix, GTM, by the six accelerations about the total vehicle 
center-of-gravity . GTM is an NDF X 6 matrix which is obtained 
by premultiplying [g] , the location vector matrix by the [mass] 
matrix. 


{gtm] = [mass] [g] 

[frb] = [gtm] [-accel] 

2.1.2 Modal Inertia Forces 

The modal matrix, PHI from the 'User Modal File (UMF) is 
postmultiplied by the matrix of modal accelerations [q] to 
obtain the matrix of nodal accelerations, {NODACC}. {NODACC} 
postmultiplies the MASS matrix from the User Modal File 
creating the array of modal forces and moments, [fmod] 
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{NODACC } = [PHI] [Q] 

{FMOD} = [-MASS] '{NODACC) . 

2.1.3 Transformation to the Finite Element Model 

The matrix multiplications used to transform body loads forces 
to the finite element model are illustrated in Figure 2-2. 

The FFE matrices represent the finite element loads. 


rigid 

body 

inertia 

l 

” Dr PE 

1 1 

j FFElj 


trb] 

FRB | 

Applied 

t 1 

NDF FF 

1 I 

1 FFE 2 


TApj 

FAP I 



1 



' 

Modal 

t 1 

ndf fe < 

1 1 

FFE 3 

, 


tmodJ 

fmod! 




TRANSFORMATION EQUATIONS 
Figure 2-2 


The "T" matrices are transform matrices set up by the user. 
FRB, FAP f and FMOD are the force's and moments acting on the 
loads model, NDF is the number of degrees-of-freedom of the 
loads model and NDF FE is the number of degrees-of-freedom of 
the finite element model. 
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2.2 Procedure 


The FRB, FMOD, and FAP matrices are set up in subroutines 
RBITRN , MILTRN, and AFTRAN respectively. The documentation 
of these routines describe the processes used to set-up the 
matrices. All three routines use subroutine TRANS to do the 
actual transform. NASTRAN bulk data cards are punched for 
each computed finite element force or moment. The NASTRAN 
card data is also used to create card images which are 
buffered into 20-card blocks and written on the NASTRAN INPUT 
Loads File using NTRAN. 



3 . 0 USAGE 


The TRAIL Program was written in Fortran V and was developed 
on a Univac 1110 computer with an EXEC 8 system to be utilized 
within the ISAS. There are five ISAS files which are used by 
TRAIL as input data. The output can be either in the form of 
punched force and moment cards In NASTRAN format or card 
images on a NASTRAN Input Loads File. 

Program control is setup by information read into several 
namelist groups. There is some namelist information which 
has been incorporated into the program for checkout purposes 
and. will provide an optional means of data input for batch 
run operation. The namelist can be initialized by reading 
cards or, when ISAS is operable, from terminal input. The 
transformation matrices are presently read into TRAIL as 
namelist data because there was no ISAS file available at 
the time of the development of the TRAIL Program. This was 
also the case with the User Weights File and the Compressed 
Aerodynamic Forces and Conditions File. 

3.1 Program Organization 

A general flow chart of the program is presented in Figure 2-1 


3.1.1 Operating Characteristics 

Some of the problem size limitations are described below. 



Maximum size 
(Finite Element 
model ) 


degree s-of- freedom 

= 410 

number of modes 

- 100 

number of nodes 

= 120 


The above dimensions result in a total D and I 
bank usage of 57 K 


number of cases - one 

A checkout of a problem with a 27 degree-of-freedom finite 
element model used less than one minute of computer time and 
thirty pages of print were output. Since no higher degree-of- 
freedom checkout problems were run. An accurate estimate of 
time and pages cannot be made. The program user should observe 
his program run time as he is getting familiar with the pro- 
gram to obtain accurate estimates for future computer run 
submission. 


3.2 Input Description 


Input for this program is composed of a control deck, a data 
deck, and a series of input files. The description of the 


control deck is shown in Figure 3-1 and details of input file 


data and namelist follow. 
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3.2.1 Control Deck Setup 




Of 


( 

i@a 


L 


(@c 


l@I 


( 




|@3 


£ 


($FIN 


(Bock of dock) 


(data deck) 


@XQT BOB. 


0PREP 


(compiler directives) 


@FREE TRAIL. 


@COPIN TRAIL-. 


@ REWIND TRAIL. 




f 


@ASG , T TRAIL, 8CX2007 Program tape 


@ASG , T 10 , 8c N A STRAN Input Lo ads File 


L 


@ASG, T 9 , F2 Temporary st o rage MASOFF 


@ASG,T 8,F2, Temp o rary storag e MTAPE 
j@ASG,T 7, 

r 

| @ASG ,T 3,8C, 


8C User Modal File 


r~ 

* (3 AS I 


Compressed Aero Forces and Conditions Data Fil 


<@ASG,T 4 , 8C , Flight Condition s File Tape 


/ 

[0-RUN 


(Frcaf of ckc ; ' ) 


FIGURE 3-1 DECK SETUP 



3.2.2 Data Deck Setup 


$TPDAT 

CMASS 

CINERT 

SID 

XCG, YCG 
UMF 

OFFDIG 

FFREAD 

TIME 

CARDS 

NUMF 

MODI NR 
RIGID 
APPLY D 


TRNOUT 
MAS OUT 
MODLOT 


- Namelist Input 

= Scale factor to convert mass to weight, default 
is 1.0 

= Scale factor to convert mass portion of the moment- 
of-inertia to weight, default is 1.0 

= Load set i.d. for creating NASTRAN card images 
ZCG=cg. of the entire body 

® .true., read mass data from User Modal File 
.FALSE., read mass data from User Weights File 

= .TRUE., off diagonal elements in the mass matrix 

“ .TRUE., read flight conditions tape 
. FALSE v flight conditions file not used 

= Time of desired flight condition 

= If .FALSE . punching of FORCE and MOMENT cards 
suppressed-de fault is .TRUE. 

= Position of. modal data on User Modal File 

“ Modal inertia, rigid body inertia, and applied loads 
computation flags, respectively - if .FALSE, the 
corresponding load calculations are suppressed. 

“ Transform array, mass array, and modal data output 
echo flags respectively - if .FALSE, the output of 
corresponding array is suppressed. Default is .TRUE. 



3.2.2 Data Deck Setup (continued) 


ACCEL 


= 6 accelerations read in if flight conditions 

2 2 

file not used. Units = in/sec , rad. /sec . 


$END 

NNODES 13 Format 
C0NM1 cards 
@EOF 

GRID cards 
@EOF 


Number of Nodes 

! These cards are used only 
if the User Weights File 
is used. (UMF=. FALSE. ) 


$ASSGN - namelist input 

DATNAM = 6HTRBbbb, identifies following data as rigid 


body transform arrays 

NDFFE No. of d.o.f. of finite element model 

ASSGNl (I,J), J=1 , 3) , 1=1, NDFFE Provides information 
about finite element data being computed 
See subroutine documentation of TRANS 
$END Namelist Input 


repeated 
for each 
row of 
TRB 


$ARR 
I ROW 
TRB 
$END 
@EOF 


row number of transform array 
values corresponding to IROW 


$ASSGN 

DATNAM 


ASSGN2 (I, J) , 


Namelist Input 

6HTM0Dbb , identifies following arrays as 
modal transform data 
optional if identical to value 
used for rigid body transof.rm 
J=l,3), 1=1, 'NDFFE Provides information about 
finite element data being created - see sub- 
routine documentation of TRANS 


$END 


Namelist Input 



3.2.2 Data Deck Setup (continued) 


repeated 
for each 
row of 
TMOD 

$ASSGN 

DATNAM 


NDFFE 


ASSGN3 (I , J) 


$END 


( $ARR 

IROW row number of transform array 

TMOD values corresponding to IROW 

$END 

@EOF 

Namelist Input 

= 6HTAPbbb, identifies following arrays as 
applied force transform data 
optional if identical to value used 
for preceding portion 

, J=l,3), 1=1, NDFFE - Provides information about 
finite element data being created - See 
subroutine documentation of TRANS 
Namelist input 


$ARR 

IROW row number of TAP array 

TAP values corresponding to IROW 

$END 
@EOF 

Ail example of input deck data can be seen in the sample problem 
input deck. See Section 3.4.2. 3. 

3.2.3 Description of Input Files 

The description of each ISAS input file follows . The formats 
indicated were obtained from the ISAS Functional Specifications 
Document, Reference 2. 


repeated 
for each 
row of 
TAP 


3. 2. 3.1' User Modal File (Description of one individual file). 


Created by : NASTOF 

Output Method: Binary 


Record 1 


12 word title 


Record 2 


NDF, NMODES, (IDXYZ (I) , 1=1, NDF), NNODES , 
(NODE ID ( J) ,J=1, NNODES) , (XYZ (I, J) ,J=1,3?_ 
1=1, NNODES) , (DMASS(K) ,K=1,NDF) ,GMASS 
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Record 3 


FREQ, (PHI { J) ,J-1,NDF) 

Record NMODES+2 

Record NMODES+3 NODEID(I) , (NAME (K,I) ,K=1,4) , 

1=1 ,NNODES) 

Record NMODES+4 (RMASS (I) ,I=1,NDF) 

Record NM0DES+3+NDF 

Note: The last two items may not exist on all tapes. 

3.2. 3.2 User Weights File 

This file does not exist at the present time, however this 
program uses the NASTRAN bulk data cards C0NM1 and GRID to 
simulate the User Weights File. The format of these cards 
is shown in Section 3. 2. 3. 2.1 and 3.2. 3.2.2 respectively. 



3. 2, 3,2,1 Bulk Data Deck - CONMl 


Input Data Card CONMl Concentrated Mass Element Connection 

Description: Defines 6X6 symmetric mass matrix at a geometric 

grid point of the structural model. 

Format and Example: 


4 5 6 7 8 9 


C0NM1 ' 

EID 

G 

CID 

Mil 

M21 

M22 

O 

M31 

M32 

w 

abc 

C0NM1 

2 

22 - 

2 

2.9 




6.3 



+1 

+bc 

M33 

M41 

M42 

M43 

M44 

M51 

M52 

M53 

def 

+1 

4.8 




28.6 


— 


+2 

+ef 

M54 

M55 

M61 

M62 

M63 

M64 

M65 

M66 


+2 


28.6 






28.6 



Field 


Contents 


EID 

G 

CID 
Mi j 


Unique element identification number (Integer > 0) 

Grid point identification number (Integer > 0) 

Coordinate system identification number for the 
mass matrix (Integer >_ 0) 

Mass matrix values (Real) 


Remarks: 1, Element identification numbers must be unique 

with respect to all other element identification 
numbers . 




3. 2. 3.2.2 Bulk Data Deck-GRID 


Input Data Card GRID Grid Point 

Description: Defines the location of a geometric grid point 

of the structural model, the directions of its displacement, 
and its permanent single-point constraints . 

Format and Example: 


1 

^ ^ 

3 

4 

5 

6 

7 

8 

9 

10 

SRID 

ID 

CP 

n 

X2 

X3 

CD 

PS 



3RID 

2 

3 

1.0 

2.0 

3.0 


316 




Field 


Contents 


ID 

CP 


X1,X2,X3 

CD 


PS 


Grid point identification number (Integer > 0) 

Identification number of coordinate system in 
which the location of the grid point is defined 
(Integer >_ 0 of blank*) . 

Location of the grid point in coordinate system 
CP (Real) 

Identification number of coordinate system in 
which displacements, degrees of freedom, constraints 
and solution vectors are defined at the grid point 
(Integer :> 0 or blank*) 

Permanent single-point constraints associated with 
grid point (any of the digits 1-6 with no imbedded 
blanks) (Integer >_ 0 or blank*) 


Remarks: 1. All grid point identification numbers must be 

unique with respect to all other structural, 
scalar, and fluid points in each NASTRAN run. 

2. The meaning of XI, X2 and X3 depend on the type 
of coordinate system, CP, as follows: (see CORD 

card descriptions) 




Type 

XI 

X2 

X3 

Rectangular 

X 

Y 

Z 

Cylindrical 

R 

0 (degrees) 

Z 

Spherical 

R 

0 (degrees) 

$ (degrees) 


3. The collection of all CD coordinate systems 

defined on all GRID cards is called the Global 
Coordinate System. All degrees-of-freedom, 
constraints, and solution vectors are expressed 
in the Global Coordinate System. 


See the GRDSET card in Reference 4 for default options 
for fields 3, 7 and 8. 

Additional details on the use of these card formats can be 
found in Reference 4, The Nastran Users Manual. 











3. 2 . 3 . 3 Compressed Aerodynamic Forces and 
Conditions File format. 


56 

words 


Header 
Information 
Block 
(cont . ) 


\ 


24 

words 


1 

word 


1 

word 


1 

word 


1 

word 


1 

word 


1 

word 


1 

word 


1 

word 


1 

word 


1 

wo rd 


1 

word 


1 

word 


Description 


Title information 

Logical variable (ENGID) to identify engines 
True - use engine ID numbers 
False — use X,Y,Z coordinates 

. Logical variable (EXTF0R) to identify external 
forces 

True — use ID numbers 
False - use X,Y,Z coordinates 

Logical variable (LNK) to identify link forces 
True — use ID numbers 
False — use X,Y,Z coordinates 

Number of engines = NENG 
(max . * 30) 


Number of external forces = NEXT 
(max. = 200) 


Number of link forces = NLINK 
(max. - 50) 


Number of modes = NM0DES 
(max. = 100) 


Start time for data contained on this file 


Stop time for data contained on this file 

Number of times contained on this file = N0TIME 

Number of points = N0GP 
(max. * 200) 

Beginning word location of data blocks 
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Header 
Information 
Block J 

(cone.) | 

1 

word 

1 

word 


18 

words 

Engine 

Identification 

Block 

NENG 

or 

(NENG/ 6) 3 

External 

Force 

Identification 

Block 

NEXT 

or 

(NEXT/6) 3 

Mode 

Identification 

Block 

NM0DES 

Link 

Identification 

Block 

NLINK 

or 

(NLINK/ 6) 3 

Point 
ID Block 

N0GP 

Point 

Coordinate 

Block 

N0GP* 3 

r 

1 

word 

Data Block 
for i 

F irst Time i 
(cont.) 

1 

word 

1 

word 


1 

word 


Description 


Number of words per data block 

= 0 - link forces of Flight Conditions File are 
used 

<* 1 - link forces are to be computed 
Spare 

Logical variable (ENGID) to identify engines 
True - use engine ID numbers 
False - use X,Y,Z coordinates 

Logical variable (EXTF0R) to identify external 
forces 

True — use ID numbers 
False — use X,Y,Z coordinates 


Identification numbers for each of the modes 


Logical variable (LNK) to identify link forces 
True — use ID numbers 
False — use X,Y,Z coordinates 

Point identification numbers 
X,Y,Z coordinates of each point 


T ime 


Mach number 


Angle of attack 
Angle of sidesli 


P 
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Description 


16 + NENG + \ 
NEXT + NLINKl 
+ 3*NM0DES I 
< + 6*N0GP / 
WOTdS 
(cont . ) 


Data Block 
for 

first time • 
(cont 0 


r 

l 

word 


1 

word 


3 

words 


3 

words 


3 

words 


NENG 


NEXT 


NM0DES 




Elevon deflection 
Dynamic pressure 

X , Y , Z coordinates of center of gravity 

X,Y,Z directions translational rigid body 
acceleration 

X,Y,Z directions rotational rigid body 
acceleration 

Thrust for engine number 1 

• 

ft 

ft 

Thrust for engine number NENG 
Force for external force number 1 


Force for external force number NEXT 
Modal acceleration for first mode 


. Modal acceleration for last mode 
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Description 



Modal velocity for first mode 


Modal velocity for last mode 
Modal displacement for first mode 

Modal displacement for last mode 
Force for first link 


Force for last link 


X , Y , Z Force coefficient components for first 
load station 

X , Y , Z Moment coefficient components for first 
load station 


X,Y,Z Force coefficient components for last 
load station 

X , Y , Z Moment coefficient components for last 
load station 




Description 


Data Block 
for 

second time 


Data Block 

fOT 

last time 


Time Block 



Time for first data block on this file 


Time for last data block on this file 




3 • 2 . 3 • 4 BATCH Flight Conditions File Format 


Record 1 


Record 2 


Record 3 


Record 4 


- 24 word title with the first two words identify 

ing the program that generated the data. 


ENGID 

- 

Logical 

TRUE 


Engine I.D. numbers used 

FALSE 

-*• 

Engine XYZ locations used 

EXTFOR 

- 

Logical 

TRUE 

-> 

External Force I.D. numbers 

FALSE 


External Force XYZ locations used 

NENG 

- 

Number of engine thrust components, 

= 6 per external force if ENGID false 

NEXT 


Number of external forces and moments 
= 6 per external force point if EXTFOR 
false 

NLINK 


Number of link forces and moments, 
= 6 per link if LNK false 

NMODES 

- 

Number of modes 

LNK 

- 

Logical 

TRUE 

-* 

Link I.D. numbers used 

FALSE 


Link XYZ locations used 

START 

- 

Start time of simulation 

STOP 

- 

Stop time of simulation 


(If NENG = 0, No Record 3.) 

If ENGID true, IDENG(I), 1=1, NENG 

If ENGID false, (ENGXYZ (k , I) ,K=1 , 3) , 1=1 , NENG/ 6 


(If NEXT = 0 , No Record 4.) 

If EXTFOR true, IDEXT (I ) , 1=1 ,NEXT 

If EXTFOR false (EXTXYZ (K, I) , K=1 , 3) , 1=1 , NEXT/6 
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Record 5 - If NMODES >0 MODES ( I ) , 1=1 , NMODES 

If NMODES <0 no Record 5. 

Record 6 - (If NLINK = 0, no Record 6.) 

If LNK true, IDLINK (I ) , 1=1 , NLINK 

If LNK false, (XYZLNK (K , I ) ,K=1 , 3 ) , 1=1 ,NLINK/6 


Record 7A - TIME, Mach number, angle of attack, yaw angle, 
elevon deflection, rudder deflection, dynamic 
pressure, engine thrusts*, non-aerodynamic 
external forces* , C. G. Rigid-body accelerations 
(linear and angular), c.g. locations 

Record 7B - has 4 alternatives 

i) NLINK=0 and NMODES=0 - no Record 7B. 

ii) NLINK=0 and NMODES>0 - modal accelerations, 

velocities and displacement 

iii) NLINK 0 and NMODES=0 - Link Forces 

iv) NLINK 0 and NMODES>0 - Link Forces and 

modal accelerations, velocities and dis- 
placements 


Record 7 is repeated for each time step between START and 
STOP 


♦Optional data - If number of engines is zero {NENG=0 ) or 
number of external forces is zero (NEXT=0) their respective 
thrust and forces will not appear in the list. 

3. 2. 3.5 Transformation Matrix File 
Details to be supplied at a later date. 



3.3 Output Description 


This program as developed has the option of producing punched 
card output or a data file containing card images. The 
format of each type output is intended to be used as input 
to NASTRAN. The format of both modes of output is therefore 
NASTRAN-compatible . 

3.3.1 Output Echo of Input 

The following input items are echoed as printout: 

1. Loads Model Force Matrices 

2. Transform matrix row by row (Suppressed if TRNOUT = .FALSE.) 

3. Rigid body and modal acceleration 

4. Number of degrees of freedom 

5. Number of modes (Loads Model) 

6. Number of nodes (Loads Model) 

7. Transform parameters 

8. Node i.d. *s 

9. Element i.d^s 

10. Mass matrices (Suppressed if MASOUT - .FALSE.) 

11. Modal data (Suppressed if MODLOT = .FALSE.) 

Section 3.4.3 illustrates the echoed input data. 

3.3.2 Data Output 

A printout of the NASTRAN FORCE or MOMENT card corresponding 
to each non- zero row of the transform matrix is printed out. 

In the listing it follows the output echo of the non- zero 
row. Section 3.4.3 illustrates the data output. 



3. 3. 2.1 NASTRAN Format Punched Cards 


A NASTRAN FORCE or MOMENT card is also punched by default. 
The operation can be suppressed by inputting a value of 
.FALSE, for logical variable, CARDS, in NAMELIST, TP DAT* 

The descriptions of the NASTRAN Format bulk data cards 
follows . 


3. 3. 2. 1.1 Bulk Data Deck 

Input Data Card FORCE Static Load 

Description: Defines a static load at a grid point by 

specifying a vector. 

Format and Example: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

F0RCE 

SID 

G 

CID 

F 

Nl 

N2 

N3 



F0RCE 

2 

. 5 _ 

6 

2.9 

0.0 

1.0 

0.0 




Field 


Contents 


SID 

G 

CID 

F 

N1,N2,N3 


Remarks : 


Load set identification number (Integer >0 

Grid point identification number (Integer >0) 

Coordinate system identification number 
(Integer ■> 0) 

Scale factor (Real) 

Components of Vector measured in coordinate 
system defined by CID (Real? Nl 2 + N2 2 + N3 2 

> 0 . 0 ) 

1. The static load applied to grid point G is 
given by 


? = - N 


where N is the vector defined in fields 6,7 and 

















Field 

Contents 

■ 

SID 

Load set identification number (Integer >0) 

G 

Grid point identification number 

(Integer >0) 

CID 

Coordinate system identification 
(Integer >_ 0) 

number 

F 

Scale' factor (Real) 


N1,N2,N3 

Components of Vector measured in 
system defined by CID (Real; Nl 2 
> 0.0) 

coordinate 
+ N2 2 + N3 2 


Remarks : 


1. The static load applied to grid point G is 
given by 


? = - s 


where is the vector defined in fields 6,7 and 8 

2. Load sets must be selected in the Case Control 
Deck (LOAD=SID) to be used by NASTRAN. 


3. A CID of zero references the basic coordinate 
system. 


3.3*2. 1.2 Bulk Data Deck - MOMENT 


Input Data Card MOMENT Static Moment 

Description: Defines a static moment at a grid point by 

specifying a vector. 


Format and Example : 


M0MENT 

SID 

G 

CID 

M 

Nl 

f 

N2 

o 

N3 


IU 

M0MENT 

2 

5 

6 

2.9 

0.0 

1.0 

0.0 
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Field 

Contents 


SID 

Load set identification number (Integer > 0) 

G 

Grid point identification number 

(Integer > 0) 

CID 

Coordinate system identification 
(Integer > 0) 

number 

M 

Scale factor (Real) 


N1,N2,N3 

Components of Vector measured in 
system defined by CID (Real; Nl 2 
N3 2 > 0.0) 

coordinate 
+ N2 2 + 


Remarks; 1. The static moment applied to grid point G 
is given by 

in = M* CN1,N2,N3) 

2. Load sets must be selected in the Case Control 
Deck (LOAD=SID) to be u^ed by NASTRAN. 


3 . 


A CID of zero references the basic coordinate 
system. 



3, 3*2. 2 NASTRAN Input Loads File format . 

(NASFIL) 


Description 


First 

Record 

280 

words 


Last 

Record 


28 

words 


14 

words 


14 

words 


280 

words 


mmmm 


Header record 

Image of first NASTRAN card 


Image of 20th NASTRAN card 


End-of-file mark 
End-of-file mark 
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Header Record format: 


IZP-g. 


Description 


20 

words 


1 

word 


7 

words 


A 


I 


120 characters of file identifica- 
tion information 


Number of NASTRAN card images 


Spare 
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Detail format of a NASTRAN card image: 
Fieldata characters for the 14 words on a NASTRAN card are 
contained in the card columns shown below. 


Word 

Card Column 

1 

1-6 

2 

7-12 

3 

13-18 

4 

19-24 

5 

25-30 

6 

31-36 

7 

37-42 

8 

43-48 

9 

49-54 

10 

55-60 

11 

61-66 

12 

67-72 

13 

73-78 

14 

79-80 
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3.3.3 Diagnostic Output 


When reading the mass matrices from the USER WEIGHTS FILE in 
routine RBITRN , if data cards are out of sequence the following 
message is printed: 

DATA CARD OUT OF SEQUENCE NEAR ELEMENT ID NO. 

The type of data being transformed is passed as a Hollerith 
variable to the argument list of subroutine TRANS by the 
subroutine which sets up the transformation. This variable 
is compared to the title of the transform matrix deck and if 
they are not equal the following diagnostic is printed and 
execution is terminated. 


DATA DECK OUT OF SEQUENCE 



3.4 Sample Problem 


A simple test problem was used to checkout the programs 
integrity. A small loads model consisting of three con- 
centrated masses on a simple beam was used as the input 
case. The program was expected to transform the loads supplied, 
which were referenced to this three node model, to a finite 
element model with nine node points and twenty-seven degrees- 
of-freedom. 


3.4.1 Sample Problem Description 


The loads model and the expanded finite element model are 
illustrated in Figure 3-2. The model is a rough representation 
of an aircraft structure. 



Loads model 


Finite Element 
Model 


NDF = 9 
NDF fe = 27 


FIGURE 3-2 

LOADS MODEL AND FINITE ELEMENT MODEL USED 
FOR SAMPLE PROBLEM 
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To obtain a set of Flight Conditions which the structure 
could be subjected to, the six components of rigid-body 
acceleration and the modal accelerations were copied from 
a Flight Conditions File which was produced by a Space 
Shuttle Flight Simulation Program* 

The program transforms all three types of loads in one run 
but three sample problems were run to checkout the numerous 
options the program has for input. For the first sample 
problem mass property data was obtained from a simulated 
User Weights File . Inertial loads were transformed by this 
check case. Both mass and modal properties were obtained 
from a User Modal File for the second run. Only rigid body 
and modal inertia loads were transformed in this sample. 

The last check case was run using a DATA statement in sub- 
routine AFTRAN to provide externally applied force infor- 
mation so a transform of external forces could be checked. 
This procedure was followed because there was no Compressed 
Aerodynamic Forces and Conditions File available. The 
ISAS File, Compressed Aerodynamic Forces and Conditions, 
which will be the source of input applied loads is not 
presently available. The following FAP array was placed in 
a data statement in Subroutine AFTRAN. 
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3.4.2 Sample Problem Input 


The sample problem input includes a sample 588 for run 
number 2 as well as a sample deck setup for the same run. 
A sample run listing is shown in section 3. 4. 2. 3 for 
problem #2. 


The sample listing does not include the transformation data 
for transforming modal loads ('TMOD ) . However, this data 
is similar to the $ASSGN and $ARR NAMELIST input for the 
rigid body transform. 
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3. 4. 2.1 Sample Run Request 


INSTRUCTIONS FOR CENTRAL COMPUTER COMPLEX COMPUTER RUNS 

iOO NOT FILL in SHADED AREAS) 

PROGRAMMER'S UQMMf.NTS: ~ 


Punched Card Output 
expected 

FSAG2 


EXEC 8 

1110 



bmhnal pace W 


Ui w M- 



i;5 c;m hn** nr winmm; ouia 


3- 29 







































3.4.2. 2 Sample Deck Setup 


(Bock of dock) 



r 


r. 




i@ASG,T TRAIL, 8C,X2007 


@ASG , T 10 , 8C ,X123 




L 


@ASG,T 7 , 8C , X194 


@ASG,T 4,8C, X1269 


/ 

1 @ASG , T 9, 


F2 


f@ASG , T 8, 


F2 


@RUN 


of dec?! > 


SAMPLE DECK SETUP FOR PROBLEM #2 


3. 4. 2. 3 SAMPLE INPUT DECK 

RUN,/RT FSH4,3200-G066-C,ES2-L78162, 1,100 FRED STRAT 

ASG, T 8.F2 

ASG.T 9,F2 

ASG, T 1O.0C 

ASG,T 4,8C, X1269 

ASG, 7 7,8C,X194 

ASG,T TRAIL, 8C,X3194 

REWIND TRAIL* 

COPIN TRAIL. 

FREE TRAIL. 

FOR , S MAIN, MAIN 

FOR ,S MILTRN,MILTRN 

FOR « S AFTRAN, AFTRAN 

FOR, S RBITRN.RBITRN 

FOR.S RDUMF.RDUMF 

FOR, S TRANS, TRANS 

PREP 

PRT,T 

XQT 808 

$TPOAT 

APPLYD * .FALSE. 

NUWF * 1 
FFREAO = .TRUE. 

TINE « 30. 

XCG=2.,YCG=0.,ZCG=0.. 

OFFDIG » .TRUE. 

UNF a .TRUE. 

CAROS « .FALSE., 

♦ END 
SASSGN 

DATNA M*6HTRB , NDFFE*27 

ASSGM <1,1 1*10 1 ,101, 101*102, 102. 102, 103, 103, 103, 104, 104, 104, 105,105, 
105,106,106,106,107,107,107, 108,108, 108, 109, 109,109, 

ASSGM < l, 21*27*1, ASSGNK1, 31*1,2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3. 1, 2, 3, 1 , 2, 3, 

1,2, 3, 1, 2, 3*1, 2, 3, 

SEND 

SAAR 

IRCWM. TRBC 1 1*. 25 

SEND 

SARR 

I RGW*2 , TR842)=.25 

SEND 

SARR 

I R0W*3 , TRB ( 3 1 25 

SEND 

SARR 

IR0W*4, TRB ( 1 1*. 25 

SEND 

SARR 

I RC W*5 , TRB(2I=.25 
SEND 
SARR 

IR0W*6, TR8<31*.25 
SEND 
SARR 

I RCW*7, TRBU)*.25 
SEND 
SARR 

IRCW=B, TRB I 21*. 25 
SEND 
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3. 4. 2.3 SAMPLE INPUT DECK (continued) 


SARR 

IR0W*9* 

SEND 

$ ARR 

I ROW* 10 

SEND 

SARR 

I ROW* 11 

SEND 

SARR 

IR0W«12 

SEND 

SARR 

IRGW*13 

SEND 

SARR 

IR0W*14 

SEND 

SARR 

I RCW*15 

SEND 

SARR 

I R0W*L6 

SEND 

SARR 

I ROW* 1 7 

SEND 

SARR > 

1 ROW* 1 8 

SEND 

SARR 

IRQW*19 

SEND 

SARR 

IRGW*22 

SEND 

SARR 

t R0W*23 

SEND 

SARR 

IRCW*24 

SEND 

SARR 

I R0W*25 

SEND 

SARR 

I RGW*26 

SEND 

SARR 

IRGW*27 

SENO 

EOF 


TRBI3i*«25* 
TRBU l*.25* 
TRBI2 I*. 25* 
TRB ( 3 l*.25t 
TRB (4 I*. 333* 
TRBt 5 )*»333* 
TRBI6 I*. 333* 
TRB<4 ) **333* 
TRB! 5 I*. 333* 
TRB l 6 >=.333, 
TRB 14 I*. 333* 
TRB < 7 I*. 5* 
TR8< 8 J=.5* 
TRB19 I*. 5* 
TRBI7 >*.5 * 
TRBI8 )=• 5 
TRB ( 9 ) = * 5 
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3 • 4 • 2 . 4 Sample Problem User Modal File Input 


The User Modal File contains grid point identification and 
location information, mass and inertia data at each grid 
point, and modal frequencies and shapes. The format of this 
input file can be seen in Section 3.2. 3.1. The input data 
on the User Modal File which is used by problem #2 is 
printed out on the sample output listing. 



3. 4.2.5 Sample Problem User Weights File Input 

The input deck for the simulated User Weights File is repro- 
duced below. The transformation data portion is not repro- 
duced on the listing. However, it is identical to the rigid 
body transformation data illustrated in Section 3. 4. 2. 3. 


RUN./RT FSHA.3200~G066-C,ES2-L78162, 1.100 FREO STRATMAN 


ASG.T 

8.F2 

ASG.T 

9,F2 

ASG.T 

10.F2 

A SG , T 

A *8C . X 1269 

ASG* T 

TRAIL » 8C # X2007 

REWIND 

TRAIL. 

cap in 

TRAIL. 

FREE 

TRAIL. 

FOR » S 

AFTRANtAFTRAK' 

F OR # S 

RBI TRN»RDITRN 

FOR * S 

TRANS, TRANS 

PREP 


XCT 

BOS 

$ 1 PD AT 


APPLYO 

= .FALSE. 

K00 INK 

* .FALSE. 

CARDS 

- .FALSE. 

FFREAD 

= .TRUE. 

TIME = 

30. 

XCG" 2 . 

♦ YCGf^). ,2CG=0. r 

OFFDIG 

= .TRUE. 


UMF = .FALSE. 
*ENO 
6 


OONF1 


102 

2 

02.0 


12.0 

1.0 

1.0 

1-0 


21.0 

2.0 

1.0 

1.0 

CONN I 


103 

3 

02.0 


A2.0 

1.0 

1.0 

1.0 


51.0 

2.0 

1.0 

1.0 

CONPl 


10A 

A 

02.0 


72.0 

1.0 

1.0 

1.0 

EOF 

81.0 

2.0 

1.0 

1.0 

GRID 


to' 

0.0 

0.0 

GRID 


20 

25. 

0.0 

GRID 


30 

50. 

0.0 

GRIO 


AO 

75. 

0.0 

GRID 


50 

100. 

c.c 

GRID 


60 

too. 

0.0 


DRIGINAIJ PAGE IB 
OF POOR QUALITY 


1.0 

2.0 

1.0 

1.0 

2.0 

1.0 

1.0 

1.0 

1.0 

1.0 

1.0 

2.0 

1.0 

2.0 

1.0 

1.0 

2.0 

1.0 

1.0 

1.0 

1.0 

1.0 

1.0 

2.0 

t.o 

2.0 

1.0 

1.0 

2.0 

1.0 

1.0 

1.0 

1.0 

1.0 

1.0 

2.0 

0.0 

0 

123A56 


0.0 

0 

1 2 A 


0.0 

0 

12A 


0.0 

0 

12A 


0.0 

0 

123A56 


10. 

0 

123A56 
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3.4.3 Sample Problem Output 


Output listing for the three sample problems are shown in 
sections 3. 4. 3.1, 3. 4. 3. 2, and 3.4.3. 3. Output tape format 
of the NASTRAN INPUT Loads Pile is shown in Section 3. 3. 2.2. 

3 . 4 . 3 . 1 Problem #1 , Output Listing 

Output from sample problem #1 is listed in this section. 

Only Rigid Body Inertial loads were transformed in this pro- 
blem. 
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TRANSFORM PROGRAM DATA 
STPOAT 

CMASS ■ . lOGOOOOOE+Ol 

CINCRT » . 10CO000M>0 1 

IS1P - *0 

XCG » ■ 20000000E'* 0 1 

YCG ■ .QOaOOOOOE+OO 

ZCG ■ .OOOOOOOOE+OO 

UMF ■ F 

OFFOIG ■ T 
FFREAD ■ T 

TIME « . 300nOOOOE*p 

CARDS ■ F 

ACCEL ■ .OOOOOOOOE *0 


NUMF 

MOO 1 NR 

RIGID 

APPLYD 

TRNOUT 

MASOUT 

MOOLOT 


•30OnO0O0E*D2 


»00Dn0O00E*D0» 

•ooooooooe*oo. 

+ 0 


.ooooooooE*no . 
.ooooooooc*oa 


• OOOOOOOOE + OO . .OOODODOtJE*OD» 


.523926fiRE*03 i 
>•3311111 9E“0 3 * 


iOOOOOOODE*00 » 

,oaooooooE-»oo 


i 2 l 2 l S325E+Q2 , 


.OOOOOOOOE+OO* 


MODAL ACCELERATIONS 


.0000 

*0000 

• OOQO 

.0000 


• 0000 

.0000 







NN0DE5 

> A 

















NOF » 

36 


















IDXT25 « 











33 


35 

36 

11 

12 

1 1 

12 13 

11 

15 16 

21 

22 

23 

21 

25 

26 

3 l 

32 

31 

13 

11 15 

16 

51 52 

S3 

51 

55 

56 

61 

62 

63 

61 

65 

66 






NODE I 0 S ■ 

















1 

2 3 

1 

5 6 
















XMAT ■ 











75.00 






• on 

♦ 00 

.00 

25.00 

.00 


00 

5a . 

op 

.00 

.00 



.00 

.00 



100.00 

• on 

• no 

100.00 

.00 ■ 

10. 

00 













DHASS ■ 

















• 00 

•00 *00 

.00 

•no .on 

.an 

♦ oo 

• no 

.00 

. 00 

• oo 

.00 

.00 

.00 

.00 

.00 

♦ 00 

.00 

.oo 

• no 

.00 .00 

.00 

.00 *ou 

.00 

• 00 

.00 

• 00 

• 00 

• 00 

.00 

.00 

.00 

• 00 






OFFOIAGONAL MASS 

MATRIX. 

ROW NO. 

1 













• 00 

•00 *00 

.00 

•00 .00 

.00 

• 00 

• 00 

.00 

• 00 

• oo 


«O0 

.00 

• oo 

. .00 

.00 

.00 

.00 

• 00 

•on »00 

• 00 

.00 *00 

.00 

• DO 

.00 

«oa 

• oo 

• 00 

.00 

• 00 

.00 

. 00 






OFFD 1 AGONAL MASS 

MATRIX* 

ROW NO. 

2 













♦ 00 

.00 .00 

.no 

.00 .00 

• 00 

• DO 

.00 

• 00 

• 00 

• oo 

.00 

.00 

.00 

.00 

o 

a 

• 

.00 

.00 

*00 


RUN #1 RIGID BODY LOADS USING SIMULATED USER WEIGHTS FILE 
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IpEIGINAL page is 
jBtJPOQR QUAiiry 


<— 


r 

— .00-- 

r. 

♦ 00 
*00 

r 

./ : 

.00 

- ~cOO ■ 

n 



.00 

r 

*00 

r 

• 00 

— .00 

r 

.00 




. 00 « 0 0 *00 *-0-Q - - -*O0 - -*-00 — 

— -8FF01 AGONAL HASS MATRIX, ROB No. 
*00 *00 *00 *00 *00 *00 

~*00 *00 - *00 .00 .00 *00 

0Ff 01 AGONAL HASS ■MATRIX* ROW NO. 
*00 *00 *00 *00 *00 *00 

•00 .00 *00 *00 *03 *00 

OFPDIAGONAL HASS MATRIX* ROB NO. 
>00 ' >00 >O0 *00 *00 .00 

*00 *00" *00' *00 *00 *00 

OFFOtFSflNRt MASS MATRIX* ROB No. - 
•00 *00 *00 .00 >00 .00 

•00 .00 *00 >00 >00 ,00 

OFFDIAGONAL MASS MATRIX* ROB NO. 

.00 .00 >00 *00 *00 2.00 

.00 >00 .00 .00 >00 >00 

OFF0 1 AGONAL MASS MATRIX* ROW NO. 
*00 *00 .00 *00 *00 1*00 

*00 *00 *00 *00 *00 .00 

OFF0 I AGONAL HASS MATRIX, ROB No. 

.00 *00 >0G .00 *00 1.00 

.00 .00 >00 .00 .00 ,00 


OFFOIAGONAL MASS MATRIX, ROB no. 
>00 >00 >00 .00 *00 1.00 

.00 • *00 ■ .00 .00 *00 .00 


-■ OFFOrXGONAL MASS. MATRIX, ROB NO. 
*00 *00 *00 *00 *00 .00 

*00 *00 *00 *00 *00 .00 

■ -OFFOT AGONAL “MASS MATRIX, ROW No, 
*00 *00 .00 .00 *00 >00 

-.00 .00 .00 '.00 >00 .00 

- -OFFDIAGONAL MASS MATRIX* ROB No. 

.00 *00 .00 *00 *00 .00 

-roo - *00 .00 .00 « 00 .00 

- OFfOtXGONAL' MASS MATRI x , ROB MO. 
«O0 *00 >00 .00 *00 .00 

*00 *00 .00 .00 »00 .00 


--'►OG- 

.00 

• 00 

• 00 

•oo 

'•OO 

*00 

• 00 

*00 

— 




3 

*00 

.00 

• 00 

«oo 

• oo 

• 00 

.00 

.00 

.00 

.00 

.00 

• 00 

*00 

*00 

.00 

• 00 

• 00 

*00 

.00 

.00 

*00 

*00 





R 

*00 

.00 

• 00 

• oo 

• 00 

.00 

• 00 

.00 

.00 

.00 

.00 

.00 

• 00 

• 00 

• 00 

• 00 

• oo 

• 00 

• 00 

• oo 

.00 

.00 

- 




5 

.00 

.00 

• 00 

.00 

*00 

• 00 

• 00 

• 00 

• 00 

.00 

.00 

.00 

• 00 
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.00 


.00 

.00 

.00 

.00 

• oo 

.00 


.00 

• 00 

.00 


• 00 

.00 

*00 

.00 

.00 

• Oo 


.00 

.00 

.00 


• .00 

.00 

*00 




FORCE 


0 IDS 


D 

1-.00 

,00 -26J 

.96 .DO 




TRR 

MATRIX. 

ROW NUMBER 

29 









.00 

.on 

.00 


• 00 

.00 

• DO 

.00 

.00 

• So 


.00 

♦ 00 

*00 


• 00 

.00 

*00 

.00 

.00 

.00 


.00 

.00 

.00 


.00 

.00 

• 00 

.00 

• oo 

• Oo 


.00 

.00 

.00 


.00 

.00 

*00 




FORCE 


0 108 


0 

1 .DO 

.00 

.00 -283.19 




TRB 

MATRIX . 

Row NUMBER 

2S 









.00 

.00 

.00 


*00 

.00 

■ 00 

• SO 

• oo 

.00 


.00 

.00 

.00 


.00 

.□0 

.00 

.00 

• 00 

.00 


.00 

.00 

.00 


.00 

.00 

*00 

.00 

.00 

.00 


.00 

.00 

.00 


.00 

• 00 

*00 
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.00 
• 00 
.00 


*00 

»G0 

.00 


.00 
• 00 
.00 


.00 

.00 

.00 


.00 

.00 

.00 


.00 

.00 

.00 


.00 
• 00 
.00 


.00 

.00 

.00 


(cont*d) 
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FORCE 

0 

109 


0 

1.00 

- 523,93 

,00 ,00 





T *« 

MATRIX ,' RO ** NUMBER 

26 







.00 

.00 


.00 

• 00 

.00 


>00 

.00 

.00 

• DO 

.50 


.00 

.00 

.00 


.00 

.00 

.00 

• 00 

.00 

.00 

.00 


*00 

.00 

.00 


.00 

.00 

.□0 

.00 

.00 

.00 

.00 


. 00 ' 

.00 

.00 


.00 

o 

O 

■ 00 





FORCE 

0 

109 


0 

1.00 

.00 -261 

.96 ,00 





TRB 

MATRIX , ROW NUMBER 

27 





.00 

*oo 

.50 

.00 

.00 

.00 

.00 


.00 

.00 

.00 


.00 

.00 

.00 


.00 

.00 

.00 

.00 

.00 

.00 

.00 


.00 

.00 

.00 


.00 

.00 

.00 

.□0 

.00 

.00 

.00 


.00 

.00 •' •• 

.00 


.00 

.00 

.00 





FORCE 

□ 

1 09 


0 

1.00 

.00 

,00 - 283*19 








RUN #1 RIGID BODY LOADS USING SIMULATED USER WEIGHTS FILE (cont’d) 


3. 4. 3. 2 Problem #2 Output Listing 


Output from sample problem #2 is listed in this section. 
Rigid body inertial loads and modal inertia loads are 
transformed by this problem. 




TRANSFORM 
*TPDaT 
CHASs 
C 1 NERT ■ 

1 S I £> 

AC G ■ 

*CG * 

ZCG » 


UMF « T 

OFFOtG ■ T 
FFREaD ■ T 
T 1 HE • 
CaRD« « F 

Accel 

NUHF 

MOO I NR - T 

rigid - r 

AppLyD * F 
TRNOUT » T 
MaSOuT ■ T 
MODLOT • T 


PROGrAh oATA 

• 1 OOOOOOQE*OJ 
. 100000006*01 

♦ 0 

• 20000000E*0 1 
•000000006*00 
« 000000006*00 


•3O0O000OE+02 

• OOOOOOOOE *00 » 

• 000000006*00 I 

*1 


,OQft00fl00E*O0 < 

•oonoooooe*no 


*ENO 

SACC 

ACCEl, ■ .523926S9 E*d 3* .OOnOOQOOE*00, 

-.3399991 BE-o3» ,000000006*00 


SEND 

M0O*L ACCELERATIONS «OnOD ,0000 

\ . NasTqF TAPE GENERATION, FJxEO PD I AGONAL TERMS 



MODE 

nO« 

1 

.FREQ* 

m 

3.6596 -PHIS 

« 



• * 1 


•01 


.00 .32 



mode 

NO, 

2 

.FREQ. 


23.90S5 -PHIS 

a 



• 30 


♦ 09 


.00 -.96 



MODE 

NO* 

3 

» F R E 8 • 


69.2622 -PHIS 

a 



• 10 


.09 


.00 -.39 



1 

MODE 

NO, 

9 

.FREQ. 

M 

6S9.3995 -PHIS 

■ 



.39 


-.70 


-.03 -.22 



MOOe 

NO , 

S 

.FREQ. 

m 

936.0679 -PHIS 

m 



.19 


-.39 


-.01 .19 



mode 

NO. 

6 

.FREQ. 

n 

1 J67.61&9 -PHIS 

m 

*■ 


. 1 1 


-.20 


-.□l .32 


: Jb 








m 

MOOe 

NO. 

7 

.FREQ. 

m 

1929.9367 -PHIS 

' ■ 



.2*4 


.28 


-.77 -.11 



mode 

NO . 

6 

.FREQ. 

m 

2693.6137 -PHIS 

9 


RUN #2 RIGID BODY 


,iiOOOnOOOE + 00» .nooOnOOO£*oo . 


.2 j2IS325E*02 , . OOOUOOUUe * 00 i 


.0000 
IN MAA 

,0000 

,0000 .0000 
SSBBBflBBBHBOBSBBBDBflCiyWA 

.01 

.00 

• 10 

*01 

*1)0 

.02 

-.00 

-.90 

-.02 

-.00 

a 

* 

o 

Kj 

-.00 

.57 

-.00 

.00 

.36 

.1)2 

. 10 

- » 1 5 

-.01 

-,9 0 

-.02 

-.33 

.61 

• 03 

-.5? 

-.03 

.25 

-.50 

-.02 

-. 1 9 

.37 

.09 

.06 

-.15 

AND MODAL 

LOADS 

TRANSFORM 

USING THE 

USER MODAL 
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PBIGINAL PAGE IS 
IBOOOE QUALITY 



11 


MODE NO- 
.04 


• 08 


-.31 

.11 

• 1 7 

-.15 

-.20 

-.25 

• 45 

3553.1060 

-.20 

-PHIS • 
.20 

.21 

-.61 

.17 

• 20 

-•55 


23 


.00 

100.00 


ioxyzs > 

25 26 

NOOEtDS 
2 3 

XHAT m 
• 00 
• 00 

OMASS - 


33 


• 00 
• 00 


35 


36 


13 


15 


14 


25. DO 

100.00 


• 00 
• 00 


*00 

10.00 


2.00 

2»QO 2.00 2.00 2.00 2.00 2.00 

2.00 

2.00 


QFPDIAGONAL NASS N ATR 1 x » rO* NO. 

1 


2.00 

1.00 1.00 .00 .00 .00 *00 

• 00 

.00 


0FFD1AG0NAL MASS MATRIX* ROW No. 

2 


1.00 

2.00 I. 00 .00 ,00 .00 #00 

• 00 

.00 


OfFD I AGONAL MASS MATRIX. ROW NO. 

3 


1 *00 

l.OD 2.00 .00 ,oo «oo *00 

*00 

.00 


offd i . agon al mass matrix, row no. 

1 


• OQ 

.00 .00 2.00 1,00 1.00 .00 

.00 

.00 


offd i agonal mass matrix, row no. 

5 


• Oq 

•DO .00 1.00 2.00 1.00 .00 

.00 

.00 


OFFDIAGOnAL mass MATRIX. ROW NO. 

4 


. Do 

•oo .00 1.00 1,00 2,00 .00 

>00 

.00 


OfFO i agonal mass matrix, row no. 

7 


• Oo 

.00 .00 .00 ,00 .00 2.00 

1 *00 

1 .00 


OFFDIAGONAL MASS MATRIX. ROW No, 

8 


• Oo 

•00 .00 .00 ,00 *00 1.00 

2.00 

1.00 


OFFDIAGONAL MASS MATRIX. ROW No, 

9 


• OQ 

*00 .00 *00 .00 .00 1*00 

1 .DO 

2. DO 


RJGjD body INERTIA LOADS TRANSFORM FR8 ■ 


50. 00 


>00 


.00 


25 . nO 


.00 


-12, 

15 -21.22 -21.22 

-12*16 

-21*23 

-?l«23 -12,«»8 -21 

.21 -21.21 



TRB 

matrix. ROW NUMBER 

I 







.25 .00 

.00 

*00 

*00 ,00 

.00 

• 00 

• 00 

PORCe 

0 1 0 1 

0 

1.00 

-10.41 .00 

.00 



trb 

MATRIX, Row NUMBER 

2 







,00 .25 

• 00 

.00 

•Oo .00 

• 00 

• 00 

• oo 

PORCe 

0 101 

0 

1 .00 

.00 -5,31 

.00 
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3-45 



r 



•** 

4U 


Trb matrix* ron number 3 



.00 

.00 .25 


.00 

• Oo 

.00 

.00 

• oo 

.00 

force 


0 101 

0 

1,00 

.00 

.00 

-5.31 




trb 

MATRIX , 
.25 

RON NUMBER 9 

*00 ,00 


.00 

.Qo 

,00 

.00 

.00 

.00 

force 


0 102 

0 

1 .00 

-10.61 

,00 

.00 




trb 

MATRIX, 

.00 

RON NUMBER 5 

•25 .no 


• 00 

• Oo 

.00 

*00 

.00 

*00 

FORCE 


0 102 

0 

1 .00 

.00 

-5. 31 

.00 




trb 

MATRIX, 

.00 

RON NUMBER 6 

♦00 .25 


.00 

.Go 

.00 

• 00 

*00 

• 00 

force 


0 102 

0 

1.00 

.00 

.00 

-5.31 




trb 

MATRIX, 

.25 

RON NUMBER 7 

*00 ,00 


.00 

.00 

.00 

• 00 

.00 

.00 

force 


0 103 

0 

1.00 

-10.61 

.00 

.00 




Trb 

MATRIX, 

,00 

RON NUMBER 8 

•25 .00 


.00 

• 00 

.00 

.00 

■ 00 

.00 

force 


0 103 

o' 

1.00 

.00 

-5.31 

.00 




trb 

MATRIX, 

.00 

RON NUMBER 9 

*00 .25 


*00 

• Oo 

• 00 

.00 

.00 

• DO 

force 


0 103 

0 

I .00 

.00 

.00 

-5 » 3 i 




trb 

MATRIX , 
.25 

RON NUMBER 10 

*00 .00 


.00 

.00 

.00 

.00 

.00 

.00 

F ORCe 


0 109 

u 

1.00 

-10,61 

.00 

,00 




Trb 

HATR I X , 
.00 

RON NUMBER 1 1 
•25 .00 


.00 

• Oo 

.00 

.00 

, Q 0 

• DO 

force 


0 IDS 

0 

1 .00 

.00 

-6.31 

.00 




trb 

MATRIX, 

.00 

RON NUMBER |2 

*00 .25 


.00 

.□o 

.00 

• 00 

.QO 

*00 

force 


0 109 

0 

1.00 

.00 

,00 

-5 • 3 1 




Trb 

MATRIX, 

.00 

RON NUMBER 13 
.00 ,00 


.33 

• Oo 

,00 

*00 

.00 

.00 

Force 


0 105 

0 

1 .00 

-19.19 

,00 

.00 




trb 

matrix, 

,00 

RON NUMBER 19 
•00 ,00 


« 0 D 

.33 

.00 

.00 

.00 

.00 
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r 

r 

r 




FORC p 0 IOS 

u 

1 .00 

• 00 

0 
• 

p- 

1 

.00 




Trb matrix, ROW NUMBER is 

• DO *00 *00 


• 00 

.00 

• 33 


• □□ 

• 00 

• 00 

Force □ ios 

a 

t.ao 

.00 

.00 -7.07 




trb matrix, row number 16 

•00 *00 *00 


*33 

• Qa 

.00 


• oa 

• 00 

• OD 

force o io& 

0 

1*00 

-M.IR 

.OD 

.00 




trb matrix, row number i7 

*00 *00 ,00 


• OD 

.33 

.00 


.00 

• 00 

• 00 

FORCE o IQ6 

0 

I. 00 

.00 

-7.07 

.00 




Trb MATRIX, ROW number 18 

■ Q 0 ■ 00 • 0 Q 


• 00 

• 00 

.33 


• 00 

• 00 

• QO 

force o id* 

0 

1 *00 

.00 

.00 

-7.07 




Trb matrix, row number i? 

.00 *00 *00 


.33 

• Oo 

.00 


.00 

• 00 

• OD 

Force □ 107 

Q 

1.00 

-iR.M 

.00 

.00 




trb matrix, row number 22 

•00 *00 *00 


• 00 

• On 

.00 


.BO 

• 00 

• 00 

Force o ioa 

0 

1 «oa 

.21.ZH 

.00 

.00 




trb matrix* row number 2 3 

•00 *00 •□□ 


• 00 

• Oo 

• 00 


• oa 

• BO 

• ao 

Force o ioa. 

U 

t . 00 

• 00 

-JO. 42 

.00 




trb matrix, row number zh 

,00 *00 .00 


• 00 

.00 

• 00 


.00 

.00 

• so 

FORCE o 108 

0 

1.00 

• 00 

.00 - 

10.62 




Trb matrix, row number 25 

*00 *00 .00 


• 00 

• Oo 

.00 


.50 

• go 

• 00 

FORCr 0 109 

□ 

1 .00 

.21.29 

.00 

.00 




trb matrix, row number h 

.00 *00 ,00 


• ao 

• Oo 

.00 


• 00 ' 

• BO 

• ao 

Force 0 1 09 

0 

1*00 

.00 

-10,62 

.00 




Trb matrix, row number 27 

.00 *00 *00 


• 00 

• oa 

• 00 


• 00 

• 00 

• BO 

force 0 109 

a 

1 .00 

.00 

.00 - 

10.62 
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1 



s 


to 


*00 AL 1NE«T|A LOADS TRANSFORM 

.on «oo «Qo -00 

,• MOD . 
.00 

,00 

.00 .CD 

• On 



ThOD 

matrix, row number i 

.25 .no .00 

.QO 

•Oo 

.00 

.00 

• 00 

• uo 

Tmoo 

MATRIX* ROW NUMBER 2 

.00 • 2S ,00 

• 00 

. Op 

.00 

.00 

.00 

• uo 

Tmo» 

MATRIX, ROW NUMBER 3 

.00 .00 .29 

.00 

.00 

.00 

• 00 

• 00 

.(JO 

Tmoo 

MATRIX, ROM NUMBER H 

,25 .00 .00 

<UQ 

.00 

.00 

.00 

• 00 

»uO 

tmod 

MATRIX, RO* NUMBER 5 

,00 ,29 .00 

.00 

a 

o 

.00 

.00 

.00 

• uO 

tmoo 

MATRIX, ROW NUMBER (, 

.00 .00 .25 

.00 

.00 

• uo 

.00 

.00 

■ 00 

TmoO 

MATRIX, ROW NUMBER 7 

.25 .oo .on 

.UG 

. Ou 

.00 

.00 

*00 

• 00 

Tmoo 

MATRIX, ROW NUMBER H 

.oo .29 .on 

.00 

*00 

.00 

.00 

.00 

.oo 

tmoo 

MATRIX, ROW NUMBER V 

.00 >00 .25 

.00 

. On 

.00 

.ou 

.00 

• uu 

tmod 

MATRIX, ROW NUMBER 10 

.29 .00 

.00 

.UD 

.00 

.00 

.00 

• 00 

tmoo 

MATRIX, ROW NUMBER 1 I 

.00 ,25 .00 

.00 

• oo 

• uo 

.00 

.00 

<00 

tmod 

MATRIX, RO* NUMBER 12 

,00 .00 .25 ■ 

.00 

« Oo 

.on 

.00 

»U0 

• on 

tmoo 

MATRIX, ROW NUMBER 12 

.00 .00 .25 

.00 

.00 

.00 

.00 

.uo 

• UO 

Tmoo 

MATRIX, RO* NUMBER 13 

.00 *00 .00 

.33 

.00 

.00 

.00 

• 00 

• uo 

Tmoo 

MATRIX, RO* NUMBER IN 
.00 *oo .on 

.00 

.33 

.00 

.00 

.00 

»U0 

Tmoo 

MATRIX, RO* NUMBER 15 

.00 *00 .on 

.00 

.Oo 

.33 

.00 

.00 

*00 

tmoo 

matrix, ro* number i* 
,00 *00 .00 

.33 

.00 

.00 ' 

.ou 

.uo 

. UO 

tmod 

MATRIX, RO* NUMBER |7 

,00 .00 .00 

.00 

.33 

.00 

.uo 

.00 

• on 
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3-48 



thod 

matrix. 

ROW NUMBER 

1 S 








.00 


*00 


• 00 

.00 

.33 

.00 

• 00 

• 00 

tmod 

MATR | 

A • 

RON NUMBER 

19 








.00 


.00 

.00 

.33 

• Oo 

«uo 

.00 

• go 

.00 

thod 

MATR1 

X » 

ROW NUMBER 

17 








.00 


• 00 

.00 

.00 

.33 

.00 

.00 

*00 

• 00 

tmod 

matri 

X* 

ROW NUMBER 

18 








.00 


.00 

.00 

• 00 

.00 

.33 

G 

0 

• 

• 00 

• 00 

Tmod 

MATRI 

X 1 

ROW NUMBER 

22 








.00 


.00 

.00 

.00 

• DO 

.00 

.50 

.00 

• 00 

tmod 

MATRI 

X, 

RON NUMBER 

23 








.00 


.00 

.00 

• 00 

• 00 

.00 

.00 

.50 

• 00 

tmod 

MATR 1 

X. 

RON NUMBER 

2*4 








• DO 


*00 

*00 

.00 

.00 

• 00 

.00 

• 00 

• 50 

Tmod 

MATRI 

X. 

RON NUMBER 

25 








*00 


*00 

*00 

0 

□ 

. 

• Oo 

.00 

• so 

• 00 

• UO 

Tmod 

MATRI 

X. 

RON NUMBER 

26 








.00 


.00 

• 00 

• OQ 

• Od 

.00 

.00 

• 50 

• 00 


DATA IGNORED - IN CONTROL MODE 


RUM #2 RIGID BODY AND MODAL LOADS TRANSFORM USING THE USER MODAL FILE (cont'd) 


fiEOF 

8E0F IGNORED - IN CONTROL MODE 


BPMO 




PHD 0029-12/2*4- 12131557 


STSt*RL 

IBS. LEVEL 

69 


BANK- s 

IBANK 

SEGMENT- a 


oqoooq 

015*453 

7*4566oqo7*|77 

oooanoooooon 

OOqoIo 

015*463 

000I3*4oqq0O0 

720*400013533 

OOoo2q 

015*173 

000000072303 

00000007230*4 

000030 

015503 

7<4566oo*4oo37 

OOO 1 *4*4000000 

OQog**o 

015513 

7 *456 6 00*40020 

OOO 1 50000000 

OOooSq 

015523 

7*4566001 1217 

OD0000072307 

bank- * 

IBANK 

5EGNENT- A 


OOOOUO 

015527 

»0 7 *4q0777776 

l *4 00 1 3200001 

OOOOtO 

015537 

010000072761 

107*4*40777776 

0 O 00 Z 0 

0155*47 

1 Q 7 RqOOO 1127 

7 2 2*4oOQQUOQ 1 

OOpo 3 0 

015557 

1 OOOOOO 7 275*4 

150000073*421 

0000**0 

015567 

7*4566001 1217 

000000073*402 

00005o 

015577 

2303*40073*420 

050001*473066 

000060 

0 1 56q7 

27Q020072760 

060020q73*422 

00qq7q 

015617 

000020072760 

27 QQ200 7 3*4q3 


ELEMfNT- m*IN 
7HS6<>dCQ75oz 
7SS660OI i326 
OOOOOOO^ 21^7 
1 OQDOOO 7 2 1 7 *| 
7*4566qo 1 *4 1 *4 3 
7*4566001 | 2 I 7 


*1 

flOo l Oon7 2 3 □ 1 
000100072302 
OOqOQOQ72 | 77 
7*1*400001551 1 
000000072173 
0 00 00 00 7 23 10 


Oil AT ADDRESS nl5*4*ii C R F '* T F n ON* **4 


000000072200 
QOOOGDO' 7 2200 
00000007 2 3q5 
7*4566qq*4qo26 
0000000 7 23q6 


000 1 3 I 0 O 00 OO 
0001 37000000 
OOO 1 12000000 
O0O I *46qqOOOO 
00o0o0o723o6 


7*456*001 375* 
7R566pol *»i N3 
I OOOOOO 7 2 | 7 5 
I OuOOfio 7 2 » 7 6 
OOOOOOO 7 23 qS 


OEC 7*4 at 121281*15 
0001 00072273 
□00000072173 
7*4**qqoq1S5o5 
7*1 *4000015515 

OOO 1 5 1 qQOOQO 


ELEMENT- TRANS 

0 1 00000 7 3**2o 
1*400*400*4541 1 
020000000001 
51000000001*4 
107*4oo777776. 
7o23*4q0156qo 

1 ODDOOQ*4*4 6*45 
2303'400 7 3‘»2o 


B( 

7 R 566 qq j * 4 1 *43 
2 7 oo2oo73*4o0 

70236qo 1 55*4*4 
7*4200001 557 | 
IR00QQ0*4561 1 

7*4566ooo75q2 
7*4*400001 5626 
107*401*4730*6 


on AT ADDRESS 015527 CREATED ONI 2*4 n E 


000000072756 
0100*400001 1 7 

7«*56600075o2 

7*45660013756 

1077*40000001 

Q002o0073*»0l 

7*45660013756 

7 20** *400 1 3530 


OOOOoOq7 3377 
2377 *40000002 
OOQ 1 OGQ 7 3*4o I 
OQq 1 OOO 7 3o*45 
0 1 OOQODOlJ l 1 7 
OOOOOOO 7 3 q 1 7 
□ DO I OOO 7 3q56 
7 U23*4QQ 1 5622 


0001 **207 3*41 5 
OSqODI** *4620*4 
OOOOOOO 7 27 76 
ODD 1 6 20 7 3H | 5 
n 1 o3*4oo 7 27 62 
OOO 1 76q 7 3*4 l 5 
00o2o?0 7 3*415 
770*400013533 


C 7*4 AT 12J2910& 
10 7 *40o777762 
7 023*400 1 55*45 
□ 00 I 55o7 3*4 1 5 
720*400013533 
27oo2oo73*4q 3 
UQ0002ol 6 Qq3 
0000200 7 2 7 5*4 
0500000 7 2 7 6*4 
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3. 4. 3. 3 Problem #3 Output Listing 


The OUTPUT listing is for the applied force transform, which 
was conducted by deleting the calls to RBITRN and MILTRN 
and inputting the applied force array by means of a DATA 
statement. 




-I a* 


nr*nSFOHH FRTJURRM DaT/T “ ” 

*TPOaT . . 

CmaSs ® .TOOODOOOC+Ol 

C INERT ® o I OQOOOOOE+O l 

ebtu “■ • *5 “ “ 

*CS ■ tOOOOOQOOE*00 _ __ ______ 

Y (T5 ■ .DOOOO'fi’OOE^tjO 

ZCG » iOOOOOOOOE+oO 

— TfflF ~i'"> 

OFFO f G ■ F - 

t fr£ ad 5 F 

time • •oocoooaoE*oo 

CARDS « F 

ACCEl ■ .OOOOQQCOE*00. .DO000o0DE+0n, .DOOOOODOE*OOt | OOtJOnCOOE+oO , 

.oooo&offox*oo* .ooooooaoc*oo ' . 

NyMF ■ *0 _ ’ 

moBTnr • f" 
rigid ■ f 

appiyd 1 • r ‘ 

trnout * t : 

HTs^UT ■ T 

HODLOT » T 


SEND 


applied force transform fap ■ 


*1 

oo Tera 

200.00 ,00 >100.00 1000. 

00 

100.00 »oo 

.00 



~rxp — 

MATRIX* 

.ZB 

MOTTMUMHEr i 

.oo ,ao 

• 00 

.00 

.00 

.00 

.iflO 

• np 

tap 

MATRIX* 

R OS number 2 








.00 

700 

• 00 

.00 

• 00 

• 00 

• 00 

.oo 

“TAP 

— MATRIX* • 
• 00 

ROi'N UMbEr 3 

■00 .25 

• 00 

.□o 

• 00 

.00 

• 00 

• 00 

Force 


0 101 0 

1.00 

.00 

.00 50.00 




tap 

MATRIX t 

R0* number h 







- -tap 

V25 

-Tiro .'55 ■ 

• oo 

.00 

.00 

• 00 

• oo 

•oo 

MATRIX ,‘ROli “NUMBER ■ 5 

.00 .ZS .00 

.00 

*00 

.00 

.qo 

.00 

»UQ 

tap 

MATRIX , 

ROi NUMBER 6 








.00 

•00 .25 

.00 

.00 

.00 

.00 

• 00 

.00 

force 


0 102 0 

1.00 

• DO 

.00 50.00 




1AP 

“MATRIX r'ROA number 7 

■ZS *00 .00 

■ 00 

• Oo 

.00 

• 00 

• oo 

.00 

Tap 

MATRIX, 

RON NUMBER B 








.00 

.25 ,00 

•ao 

.00 

*00 

• 00 

.00 

. uu 



RUN #3 

APPLIED FORCE 

TRANSFORM USING 

CARD INPUT 











, 
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Tap 

MATRIX. 

ROW number 

9 









.on 

.00 

.25 


.on 

.00 

.00 

.00 

• 00 

• Jf ' 

f UKf r 


0 1 03 


0 

1 .00 

.00 

.oo sn.no 




tap 

MATR t X 1 

RQW NUMBER 

10 









.25 

.00 

.00 


.00 

, Oi; 

»ou 

.00 

• 00 


Tap 

MATRIX, 

RO* NUMBER 

1 1 









.00 

.25 

.00 


• DO 

.UO 

,QU 

.UO 

.00 

*U\J 

Tap 

MATRi X • 

R0* NUMBER 

12 









.00 

• Of) 

.25 


.00 

• DO 

.00 

• tO 

.UO 

• UCl 

P0RC r 


0 108 


0 

1 . '1U 

.OU 

,00 50, nu 




Tap 

matrix. 

R0» number 

1 3 









.00 

.00 

.00 


.25 

.Oo 

.00 

.00 

- CO 

* 0 U 

Tap 

MATRIX, 

RO* number 

M 









.00 

.On 

.00 


.013 

• 33 

.JO 

.00 

• UO 

«uu 

FO»Cr 


O JOB 


u 

1 .00 

. uut 

-33.30 .HU 




Tap 

MATRIX, 

ROVr NUMBER 

15 









.00 

* OP 

.00 


« uO 

.00 

.25 

.no 

. Oil 

•O J 

f os Cc 


0 105 


u 

1 .00 

,UQ 

,0u 250. OU 




tap 

MATRIX, 

ROW NUMBER 

1 6 









.00 

♦ 00 

.on 


.50 

.00 

.11 J 

.no 

.00 

• ijf.l 

tap 

MATRIX, 

ROW NUMBER 

I 7 









.00 

♦ no 

.00 


.00 

.33 

« UO 

.UO 

• UO 

iUU 

FORCf 


0 Jot. 


□ 

1 .00 

.00 

.33. 3U ,U0 




Tap 

MATRIX, 

R 0 ft NUMBER 

1 8 









.00 

.00 

.00 


.00 

.UO 

.50 

.GO 

.00 

■ Oil 

POi<Ct 


0 106 


0 

I .00 

.UO 

.OU 5t!0.0n 




Tap 

matrix, 

ROw NUMBER 

I 9 









.00 

.00 

.00 


.25 

• 00 

.00 

.GO 

• uO 

«U!J 

Tap 

MATRIX, 

ROM NUMBER 

20 









,00 

.00 

.00 


.00 

.33 

,130 

>00 

,00 

• UU 

f 0 RC r 


0 1 07 


a 

1 .00 

, OU 

-33.30 ,00 




Tap 

MATRIX, 

R Oft NUMBER 

21 









.00 

. Of) k 

,00 


.00 

.0‘J 

,2S 

.UO 

.00 

♦ Jo 

POM C r 


0 107 


0 

I .00 

.OU 

.00 25n.U0 




tap 

MATRIX. 

ROW NUMBER 

22 









.00 

• 00 

,00 


.00 

»U0 

.00 

.50 

. ull 

» 0;j 




RUN #3 

applied 

FORCE 

TRANSFORM USING 

CARD 

INPUT (cont'd) 
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SEor JfiNORED - IN CONTROL MODE 







4.0 SUBROUTINE DOCUMENTATION 


The TRAIL Program was written in Fortran V to be used on a 
Univac 1100 series digital computer with an Exec-VIII system. 

It has been designed to be used within the Integrated Struc- 
tural Analysis System (ISAS) for the purpose of transforming 
inertial and applied loads on a dynamic loads model to a 
finite element model having many more node points. In the 
programs present form the maximum number of degrees-of-free- 
dom in the finite element model is 410. The storage core 
capabity the program occupies with this maximum capability 
is approximately 57K words. 

4.1 Main Program Description 

The controlling routine within TRAIL is MAIN. This routine 
manages the program calculations and the program output. The 
structure of the calling sequence is simple and can be visualized 
by observing the routine listing. Figure 2-1 of this document 
illustrates the program flow. Main reads the transform logic 
data, v/ rites the header information on the NAS TRAN Input Loads 
File (NASFIL) , calls the requested transformation routine, 
and outputs the requested printed and magnetic tape data. 

A Fortran Procedure named DIM was used to easily change 
maximum array sizes. It is intended to allow for decreasing 
the required core size when running problems which do not require 
the maximum default dimensions. This Procedure is described 
in Section 4.1.3. 


vms & mtA GS biank^nqs.eclmeq 



4.1.1 Routine MAIN Characteristics 

OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 


IDENTIFICATION 


Name/Title 

Programmer/Date 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 


MAIN 

F. STRATMAN 4/74 
F, STRATMAN 5/74 
L EC -ASP FOR SMD 
UNIVAC 1110 
FORTRAN V 


STORAGE: 

IBANK 54 g 
DBANK 15 2 b 


INPUT VARIABLES: 


SYMBOL 

TYPE 

SIZE 

DESCRIPTION 

A 

A 

1 

Title of run 

TRNOUT 

L 

1 

Printout control for transformation matrices 

MASOUT 

L 

1 

Printout control for mass matrix 

MODLOT 

L 

1 

Printout control for user model data 

MODI NR 

L 

1 

Computation control for modal inertia loads 

RIGID 

L 

1 

Computation control for rigid body loads 
transform 

CARDS 

L 

1 

Card punch output control 

APPLYD 

L 

1 

Computation control for applied loads 
transform 

NASFIL 

I 

1 

Unit number of NASTRAN input loads file 

UMF 

L 

1 

Indicator for User Modal File 

OFFDIG 

L 

1 

Indicator for off-diagonal mass matrix 

FFREAD 

L 

1 

Indicator for Flight Conditions File read 

CMASS 

R 

1 

Scale factor for masses 

CINERT 

R 

1 

Scale factor for inertias 

IS ID 

I 

1 

Set identification number for NASTRAN force 
and moment cards 

XCG 

R 

I 


YCG 

R 

1 

Cartesian coordinate location of vehicle c . g 

ZCG 

R 

1 

TIME 

R 

1 

Flight time for loads and accelerations 

ACCEL 

R 

6 

Rigid body accelerations 

NUMF 

I 

1 

File location on modal input tape 
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MAIN-1 



CARD OR TERMINAL INPUT: 

The Namelist $TPDAT was used to input program control para- 
meters to the main routine. $TPDAT was input with cards for 
the checkout case. Other means of inputting this type of 
data could be used such as the Exec- 8 7/8ADD command. A 
description of Namelist $ TP DAT follows: 

NAMELIST/TPDAT/CMASS , CINERT , IS ID , XCG , YCG , ZCG , UMF , OFFDIG , FFREAD , 
TIME , CARDS , ACCEL , NUMF , MOD IN R, RIGID, APPLYD , TRNOUT , MASOUT , MODLOT 

LIBRARY ROUTINES REQUIRED: 

The NTRAN routine is required by routine MAIN to write the 
NASTRAN Input File (NASFIL) . Appendix A has a description 
of this routine. 

LISTING: 

A listing of routine MAIN can be found in Section 4.1.2. 




MAIN-2 
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4.1.2 LISTING OF ROUTINE MAIN 

SFOR'S MAlN.NAiN 

FQR S£iX-12/23/74-2.lIJ41.S4- IO.I 

HAJN PROGRAM 

STORAGE USED; COOEUI Q00C54I DATa(O) 0001521 rLANK CONMQN12) 000000 
COMMON BLOCKS' 

Pod TP INFO 000016 .... .. . 

Og04 FACTOR 000004 

0005 DA TOUT OOOD.Q3 


EXTERNAL REFERENCES (OLOCKf NAME) 

0006 NTRAN 

0007 RBITRN 
0010 K 1 LTRN 
OOU AFTRAN 
00J2 NIMTRS 
Qo 1 3 NRNLS 

0014 NPRTS 

0015 N 1 025 

0016 NWMLl 

0017 NS TOP* 


storage assignment ( block > type, relative location, nahei 


0000 


000134 

IF 

0000 

R 

000000 

A 

0003 

R 

OOOOO 7 

ACCEL 

0000 

L 

000037 

APPLVO 

00f>4 

L 

OOflOnO 

CARDS 

0004 

R 

. QOOOO l 

C INERT 

0004 

R 

000000 

CM ASS 

0003 

L 

OOOOOS 

FFREAo 

0004 

I 

000002 

ISIO 

0000 

1 

000040 

L 

0005 

L 

OOOOOl 

hasout 

0000 

L 

00003S 

mod x nr 

OOflS 

L 

000003 

MCOLOT 

oooo 

I 

000034 

nasfil 

0003 

1 

000015 

NUHF 

0003 

L 

QOOOO 4 

OFFDIG 

0000 

L 

□00036 

RIGID 

00q3 

R 

000006 

TIME 

0000 


000041 

TPOAT 

0005 

L 

000000 

TRNOUT 

0003 

L 

0Q0003 

UMF 

0003 

R 

000000 

XCG 

00q3 

R 

OOOOOl 

TCG 

0003 

R 

000002 

zee 






OOlOl 

1 • 


COMPILER (DATA ■ SHORT) 

OOnOnO 

00103 

2* 


OlMENSION A t 28 ) 

OOOOOl 

00105 

3* 


data nasfil 710/ 

OOOOOl 

00107 

4* 


OATA A /'NASTRAN INPUT LO*OS FILE* / 

OOOOOl 

00)11 

5* 


LOGICAL TRNOUT/. TRUE* / * N ASOUT/ * TRUE • / . MoOLOT/ . TRUr • / 

OOOOOl 

00) 15 

6* 


LOGICAL MOO I HR / .TRUE * /.RIGID /.TRUE. / « AppLTD/ » TRUE • /.CAROS 

OOOOOl 

00115 

7* 


• /.TRUE,/ . UMF. OFFDIG, FFREAO 

OOOOOl 

00122 

8* 


data cmass.cjnert/ 2 • )*/ 

OOOOOl 

00)25 

9* 


COMHON/TPlNFO/ACG,YCG.ZC6,UMF.oFFDlG.FFREAO»TIMC>ACCEL(6 ) .nunf 

OOOOOl 

00)26 

10* 


COMMON/FACTOR/CM ass, c inert. is 10 .CAROS 

OOOOOl 

00127 

11* 


COMMON /DATOUT/ TRNOUT , MaSoUT , HOOLOT 

OOOOOl 

00)30 

12* 


NAmELIST/TPOAT/CHASS»C INERT . I SI D»XCG»YCG»2CG» UMF .OFfDIG, FFREAO. 

OOOOOl 

00|30 

13* 


• T IME .CARDS .ACCEL , NUmF t MOO 1 NR »R 1 6 1 0 > APPL TO 

OOOOOl 

00)30 

14* 


•» TRNOUT. MASOUT, HODLOT 

OOOOOl 

00)30 

15* 

C 


OOOOOl 

00131 

16* 


Read is.tpoatI 

OOOOOl 

00134 

17* 


print 1 

OOOOOS 

00136 

18* 


1 format 1 1 H 1 / S x . ^TRANSFORM PROGRAM data*) 

0000 1 1 
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4 , 1.2 

00 | 37 

00 1 92 
00)ii3 

cons 

00)47 

00)51 

00)52 

00)53 



LISTING OF ROUTINE MAIN (cont’d) 


I?* 

•RITE I6.TP0 

AT) 

20* 

CAUL NT RAN { 

NASFlt . I *28,A,U,22 J 

21* 

IF (RIGID ) 

call rbitrn 

22* 

IF (MODINR) 

CALL MILTRN 

23* 

IF (APPLT01 

call aftran 

24* 

call ntranin 

*5F|L, 9,9.221 

25* 

STOP 


26* 

END 


END OF 

COHP J u*T I 0^1 NO 

diagnostics. 


00001 1 
nooO ) 5 
n0002S 

000031 
000035 
00004 1 
O000H7 
□00053 
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4.1.3 Description of Fortran Proc, Dim 


OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 


IDENTIFICATION 

Name/Title 

Programmer/Date 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 


FORTRAN PROCEDURE DIM 
FRED STRATMAN 4/74 
FRED STRATMAN 10/74 

LEC-ASD FOR SMD 

UNIVAC 1110 

FORTRAN V 


PURPOSE 

DIM sets dimensions for the larger arrays used in the program. 


USAGE 

© Calling Sequence 
INCLUDE DIM, LIST 


PARAMETER DEFINITION 


Parameter 

Name 

MAXDF 

MAXMOD 

MAXNOD 


Dimension 

410 

100 

120 


Type 

I 

I 

I 


Description 

Maximum degrees-of-f reedom 
Maximum elastic modes 
Maximum nodes 
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DIM-1 



_ — — ai a, n a u : 

Plti^BArU/ L \ 7-0 3 : U 2 

_ p EUoui oin pkqc 

UUU2 C* AKNAY [) | fit; MS I Ol'Ti 

1100 3 .- „ 

PAfiAMtTtK I1AXUI = m ] (J 

— -P-A-U-AHCTM' M A X-li* • l-t = - J-Qn 

PAliAHf-TLO MAAfi(;|. = 120 

E N l* 



U u U H 

•— OuUE> ...... 

U o u 6 

0X017 

u Li o a 

E NO P (j p 




4,2 Common Block Information 


There are four named common blocks used within TRAIL, A 
common block versus subroutine matrix for the common . blocks 
used is shown in Figure 4-1. 

4.2.1 List of Common Block Variables 

A list of the contents of each common block follows. 

/TP INFO/XCG , YCG , ZCG , UMF , OFFD IG , FFREAD , TIME , ACCEL , NUMF 
/F ACTOR/CMAS S , C INERT , I S ID , CARDS 
/DATOUT/TRNOUT , MASOUT , MODLOT 

/MODAL/A , NDF , NMODES , IDXYZ , NNODES , NODE ID , XMAT , NDFFE , 

FREQ , QDD , DMASS , RMASS , PHI , IUMF # MASOFF 



TPINFO 

FACTOR 

DATOUT 

MODAL 

AFTRAN 

X 


X 


MAIN 

X 

X 

X 


MILTRN 




X 

RBITRN 

X 


X 

X 

RDUMF 

X 


X 

X 

TRANS 


X 

X 

X 


FIGURE 4-1 

Common Block Cross Reference Table 
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4.3 Description of Subroutine AFTRAN 

OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 

IDENTIFICATION 

Name/Title 
P ro g r amine r /D a te 
Author/Date 

Organization/Installation 
Machine Identification 
Source Language 

PURPOSE 

AFTRAN sets up an array of applied forces and moments. 


USAGE 

o Calling Sequence 

Call AFTRAN 

MODEL 

AFTRAN copies the external forces and moments array, [FAP ] , from 
the Compressed Aerodynamic Forces and Conditions File described 
in Section 3. 2. 3. 3. 

NT RAN operations are used to skip to the desired data block and 
to read the data. A flow of AFTRAN operations is shown in 
Figure 4-2. 

LISTING 

A listing of the AFTRN subroutine is found in Section 4.3.1. 
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• Symbol Definition 

Coding Type Description Units 

ICAFCF I Unit number of Compressed Aero 

Forces and Conditions File 

I Number of thrust forces 

I Number of applied forces 

I Number of time points on file 

H Name passed to transform routine 

to verify that TAP matrix is read 

T START l Start and stop times of simulation 

TSTOP ) on ICAFCF 

FAP R Array of applied forces and moments 


NENG 

next 

NTIMES 

TAPCK 
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AFTRAN-2 



SUBROUTINE AFTRAN 



FIGURE 4-2 

Flow Chart of Subroutine 
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AFTRAN- 3 







r 


r ' 




-r 


r- -i 


r ' 


4.3.1 Listing of Subroutine AFTRAN 

8r<JR»S ApTRxN.AFTRAN 

FOR S E 1 a - j 2 A23/7.H - Z 1.1 H s; q 6 .. iiul. 

subroutine AfTRAN entry point oooiAn 


STORAGE US ED 1 CODE(I) 0001 A7I OAT A ( 0 > OoO*I7t BLANK C0NN0N<2) 000000 

. CQ.fUHJ>.N blocks: 

Ojjgj DATOOT 000002 

OQOl TP INFO 00001* 

EKjElNALREfIRCNC.ES (BLOCK • NAME) 

0o0& NTR.AN 
0004 TRANS 
000? NPRTS 

001 0 NJOJS 

0011 N IDZA. .. 

0QJ2 NCRR3S 





storage assignment (block* type* relative location, name) 


, 0000 


Q0017I 

If 

ooot 


000123 

1**0 

0001 


0001** 

1 1 1 6 

0001 


000007 

ACrEL 

oooo 

R 

OOnSn* 

BUFF 

0000 

R 

oaoooo 

f AP 

0001 


000005 

ffread 

0000 

I 

000170 

1 

oooo 

1 

0001** 

IBLOCr 

oooo 

I 

00050* 

I BUFF 

oooo 

I 

oaoiss 

1CAFCF 

0000 

I 

0001*5 

InCRHT 

oooo 


000*02 

JNJPS 

GOOD 

1 

00015* 

L 

oooo 

L 

□0050* 

L8UFF 

0000 

1 

0001*7 

H 

000* 

L 

ooaooi 

NaSOUT 

000* 

L 

000002 

MOOLOT 

OOOO 

] 

0001*1 

N 

oooo 

1 

0001S7 

NCN6 

0000 

1 

0001*0 

NE*T 

0000 

I 

OOOl** 

NTIMES 

0001 


DOQQlS 

NUNF 

0001 


000001 

offo i a 

oooo 

1 

000151 

TAPCK 

odor 

R 

oooqo* 

TIME 

000* 

L 

000000 

TRNOUT 

oooo 

R 

0001*> 

TSTART 

oooo 

R 

0001*2 

TSTOP 

0001 


00000* 

UNF 

Odor 


oaoooo 

KC«. 

0001 


ooaooi 

res 

0001 


000002 

zee 











ooooo 

•0 I ASNOST I C* 

the name extxtz appears in a dimension or ttpe 

STATEMENT BUT 

IS never referenced. 

00000 

•0 1 ASNOSTJ C* 

the name ioext appears in a dimension or type 

statement but 

IS NEVER REFERENCED. 

OOJOl 

1* 

SUBROUTINE AFTRAN 


oonono 

00)01 

1* Cl 

a routine to transform applied loads 


000000 

0010* 

3* 

DIMENSION BUFF ( S* ) iEKTXtZ <*,* 1* IOEXT I 3A 1 *FAP<30Ql 

ooooao 

aoioi 

1* 

DIMENSION i buff ( 5 A ) 


000000 

00)05 

5* 

CONMON /DATOUT/ TRNOUT, MaSOUT.MODLOT 

.TIME » ACrEL ( A 1 

000000 

00 1 QA 

*• 

COMMON/ TP 1 NFO/XCS*YCS»ZCS*UNF*oFFDIS»FFREAO 

(NUMF oOOOOo 

00)07 

7* 

LOGICAL TRNOUT *NASOUT*MOO LOT 


oooooo 

Q0U a 

M 

LOGICAL LBUFf ( 5A > 


ooooao 

001)1 

V* 

E GUI VALENCE (BUFF( ) | * IBUFF( I 1 * LBUFF ( 1 )) 


oooooo 

00)12 

10* 

INTEGER TAPCK/AHTAP / 


oooooo 

OOlll 

11* 

data icafcf/*/ 


DOOOOD 

00)14 

12* 

call NTRANl JCA fCF, 10> 


OOODOO 

00)1* 

1 ** c* 

RE AO ID INFORNATION 


oooooo 

00)17 

11* 

CALL NTH an ( ICAFCF *2 ,*7 * BUf.F *L * 22 ) 


000003 

00120 

15* 

NCNS -|BUFF(2BI 


OOOO 1 3 

00121 

. 1*« 

NEXT m I BUFF ( 2t 1 


OQO0I5 

00)22 

17* 

TSTART- BUFFI32) 


0000)7 
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& 


00123 

18* 

00 1 21 

19* 

00125 

20* 

00)25 

21* 

00)26 

22* 

00126 

23* 

00)27 

21* 

00)30 

25* 

00)31 

26* 

00)31 

27* 

00132 

2B* 

00)33 

29* 

00)34 

30* 

00135 

31* 

00 1 HO 

32* 

00) <|2 

33* 

00150 

34* 

00151 

35* 

00)52 

36* 

00)53 

37* 


Tstop ■ Burr ( 33 > 

NTIMES »IBUFFIJH! 

N * NENG ♦ NEXT 

c * HEAD EXTERNAL FORCE LOCATjONS 

Call NTRAN ( 1CAFCF,2.N,BUFF.L,22I 
C* PINO BLOCK FOR DESIRED FLIGHT CONDITIONS 
INCRKT ■ITSTOP-TSTARTI/nTiHES 
I&LOCK • ( TIME-TSTARTI/INCRHT 
CALL NTRANncAFCF,7*IBLOC)c> 

C * READ ARRAY OF FORCES 

N ■ N * IS 

call ntran i icafcf.2»n,buff ,l *22 1 

H » 1 5 ♦ N 
DO JO I ■ 1 *NE XT 
30 F AP ( I ) ■ BUFFI M ♦ J ) 

PRINT 1, IFAPlIli l-l.NEXT* 

I FORMAT l*0»i • APPLIED FORCE TRansFqrh FAP 300 I / 1 SFB . 2 I > 

call transifap .next , tapck » 

RETURN 

end 


00002 1 
DO 0 0 2 3 
00002S 
00002S 
000031 
000031 
000043 
000056 
r*0 DO 7 2 
000072 
OOD077 
000107 

000 1 I 2 

0001 IS 
000123 
O0012& 
000 I 3 A 
POO 1 34 
00014) 
000 144 


end of compilation* 


2 diagnostics. 
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OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 


IDENTIFICATION 


Name/Title 

Programmer/Date 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 


SUBROUTINE MILTRN 
FRED STRATMAN 4/74 
FRED STRATMAN 5/74 
LEC-ASD FOR SMD 

UNIVAC 1110 

FORTRAN V ♦ 


PURPOSE 

MILTRN calculates ah array of modal inertia loads acting at 
the degrees of freedom of the loads model. 


U SAGE 

• Calling Sequence 

Call MILTRN 


• Symbol Definition 


Coding 
FMOD (NDF) 


Type 

R 


MASS (NDF, NDF) R 
NDF I 
NODACC (NDF) R 

PHI (NDF, R 
NMODES) 


Description Units 

The column matrix of modal inertia 
loads 

The mass matrix 

Number of degrees-of-freedom 

Acceleration of gridpoint nodes at 
each d.o.f. 

Modal matrix 
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Coding 

Type 

Description 

Units 

QDD (NMODES) 

R 

Modal accelerations 


TMDCK 

H 

Name passed to transform routine 
tp insure that TMOD matrix is read 



• Model 


To compute the FMOD array the nodal accelerations must first 
be computed using the PHI array from the User Modal File and 
QDD from the Flight Conditions File in this manner. 


1 NOD ACC 



NMODES-* 

r phiI 



i 

NMODES 


The modal MASS matrix which premultiplies nodal accelerations to 
obtain FMOD is an NDF X NDF array which is symmetrical, and 
can be a diagonal matrix. 


FMOD 


f -MASS 



NODACC 


I 

f 


LISTING 

A listing of subroutine MILTRN is found in Section 4.4.1. 
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4.4.1 Listing of Subroutine MILTRN 

•for," h i ltrn , m i l trn f 

FOR __ 

SUBROUTINE MILTRN ENTRY* POINT Q00I31 


STORASE USED I CODE ( • ) 00Q142I DATAI01 QolS24| BLANK COMMON (2 1 OOOOOO 

common blocks! ... 

0003 NODAL 1.23531 


external references i block » name) 


0004 

TRANS 


0005 

NRER1 


0004 

NflBUl 


0007 

N 1 0 1 1 


0010 

N I 021 


aoii 

NPRTI 


Dfl 1 2 

NERR3* 


STORAGE 

ASSIGNMENT 

0001 

0000 14 

11.4.6 

0001 

000102 

1526 

0003 

001424 

FRE8 

Oaoo i 

001444 

J 

0003 1 

000031 

NMOOi 

0003 R 

001427 

ROD 


(block. type, relative location, name* 


0 0 002l 122c 

001447 3F 
0000 I DO 1 445 I 
0003 i 123630 MaSOFF 
000444 NNODES 
002425 RN ASS 


0001 

0000 


0003 

0003 


OOol 

0003 

00 q 3 

0003 

OOoO 


000042 1316 
OOOOOO A 
000032 10XVZ 
002425 NASI 
OOOOOO NOOACc 


0000 I 001444 TMOCK 



0001 

000053 

1346 

oonl oonni.3 

|4 3« 

0003 

001773 

OMAS$ 

0000 R 000432 

FMOO 

0000 

D01S05 

1 N JP> 

00o3 123527 

1 UNF 

0003 | 

l 000030 

NDf 

0003 001425 

ndffe 

0003 

000445 

node 1 ft 

00o3 0 003457 

PHI 

0003 

001055 

XHAT 




OOlOl 

l* 


00101 

2* 

C 

00101 

3* 

C* 

OOlOl 

4* 

c 

00103 

5* 


00)03 

5« 

D|M 

00103 

5* 

C* 

00103 

5* 

c 

. 00104 

S» 


00} OS 

5* 


. .00104 

5* 


00)04 

5* 

c 

00104 

5* 

end 

00107 

4* 


00)07 

7* 


00107 

I* 


.OQ_1JO._ 

t* 


001 1 1 

io. 


...00112 \ 

n* 


00) | 3\ 

12* 



SUBROUTINE MILTRN 

ROUTINE TO SET UP TbANSFORHaJ |0N OF MOOAl InErTIA LOA^S 

INCLUDE DIM, LIST 
PROC 

ARRAY DIMENSIONS 

PARAMETER NAXOf » 4 1 0 
PARAMETER HAXMOD ■ 100 
parameter maanod - 120 


common /Modal/ a < 24 i , nof.nhodes, idxyz< naxof > ,nnoocs,modeid(maxnod> , 
• XMAT IMAXNOO .3 ) , NOFFE ,FRES . 800 1 H*XmOD > *DMAsS (NAXOF I iRNASS (MA xOF » , 
•PHI < NAXOF, NAXMOO) ,1UMF,NAS0FF 
DIRE MS I ON NOOACC IMAXOF 1 ,FmOD{ NAXOF 1 
REAL MASS(NAXDFI (NOOACC 
E8U1 VALENCE (MASSm ,RMASs<l)» 

INTEGER TMDCK/4HTN00 / 



oOnOno 

OOOOOO 

OOOOOO 

O0000O 

oooOoo 

OOOOOO 

OOOOOO 

QOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

ooooao 

OOOOOO 

OOOOOO 

aooooa 

OOOOOO 

OOOOOO 

OOOOOO 

nOOOoo 

ooooao 
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001J3 
001 15 
00120 
00121 
00124 
00124 
00 12*1 
00124 
00127 
00130 
0013^ 
DO 13*4 
00142 
00145 
00145 
OQlSO 
00 1 56 
001S6 

00 ISA 
00 J 56 
00 | 57 

00140 

00141 


| 3 * 

14* 

15* 

14* 

17* 

18. 

1?. 

20* 

21* 

22* 

23 * 

24 * 

25* 

26 * 

27* 

28 * 

27 * 

30 * 

31* 

32 * 

33 * 

34 * 

35* 


C* CALCULATE NODAL ACCELERATIONS 

00 120 I-liNOF 

nod acc ii) • o. 

DO 120 j* i * R hodes 

120 NOD ACC i I ) ■ NODACCIU * PH l< I . J ) *QDD I J J 

C* CALCULATE inertia FORCES at each DOF 

c 


RENIN® HASOFF 
DO 130 IM»NDF 
FMoOm ■ 0. 

Read (hasoffj ( m ass < j i • j.j*ndf> 

DO 130 J* 1 » NDF 

130 THOOI1I ■ FMODMI - M ASS 1 J) *nODACC<J» 


print 3, (fnooiM, j-UNOpl 
3 format i*o* i » hodal inertia loads transform 

• 300(/15F8, 2M 

C 
C 


Call transifhod.nof.tmdcki 

return 

end 


fmod ■ 


oaoooo 

oaoooo 

0000 | 4 
000021 
000021 
000021 
000021 
O0Q02I 
□ 00 0 3 3 
000042 
000044 
000045 
000054 
000043 
000043 
000072 
OOOiOS 
OOOlOS 
000105 
000105 
0D010B 
000112 
000141 


eno of compilation: 


no DIAGNOSTICS* 



o o 

'*1 

H § 
;,, 6 

>1? w* 

xi bs 

jiffe 
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4.5 Description of Subroutine RBITRN 


OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 

IDENTIFICATION 

Name/Title 
Programmer/Date 
Author/Date 

Organization/Ins tallation 
Machine Identification 
Source Language 

PURPOSE 

RBITRN calculates an array of static forces and moments acting 
at the degrees of freedom of the loads model. 


SUBROUTINE RBITRN 
FRED STRATMAN 4/74 
FRED STRATMAN 5/74 
LEC ASP FOR SMD 

UNIVAC 1110 

FORTRAN V 


USAGE 

• Calling Sequence 


Call RBITRN 


METHOD 

• Symbol Definition 


Coding 

A 

ACCEL 


Type 

A 

R 


Description 

Title on Flight Conditions File 
6 components of acceleration 


Units 



DMASS 

FRB 


GTM 


R 

R 


R 


Diagonal mass matrix 


Array of rigid-body forces and 
moments acting at the degrees-of 
^freedom of the loads model 


Mass matrix accounting for element 
location with respect ‘to the c.g. 

i "" 
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Description 


Units 


Coding 

G 

IDELMT 

IDXYZ 

IFLTFL 

MASOFF 

MTAPE 

NCID 

NDF 

NENG 

NEXT 

NLINK 

NMODES 

NNODES 

NODEID 

NSTART 

OFFDIG 

QDD 

RMASS 

RPMASS 

SKIP 1 
SKIP f 


Type 

R 

I 

I 

I 

I 

I 

I 

I 

I 

I 

' I 
I 

: i 
T 
I 

L 

R 

.R 

R 


R 


Computed gridpoint location vector 
matrix 


Element i.d. number from User Weight 
File 


"node number * 10 + d.o.f." 


Flight Conditions File unit number 

Unit having off diagonal mass 
matrices, if present 

Unit used for temporary storage 
of values used to calculate GTM 

Co-ordinate system i.d. 

Number of degrees, of freedom 

Number of thrust components 

Number of external force components 

Number of link loads . 

Number of modes 

Number of nodes 

Node i.d. 

Variable equal to number of data items 
to skip for binary reads 

If true, off-diagonal elements in 
mass matrix 

Modal accelerations 

Whole mass matrix = (NDF X NDF) for 
OFFDIG true 

The 6X6 mass matrix for each gridpoint 
from User Weight File 

Locations into which irrelevant binary 
data is read 
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Coding 

Type 

Description 

units 

START) 
STOP ) 

R 

Start and stop times of Flight 
Condition Data File 


TIME 

R 

Time of desired data from Flight 
Condition File 


TRBCK 

H 

Name passed to transform routine 
to verify that TRB matrix is read 


UMF 

L . 

If true, read User Modal File 
If False, read User Weights File 


XCG) 
YCG > 

zcg) 

R 

Vehicle c.g. location 


XMAT 

R 

Locations of grid points in co- 
ordinate system 



• Model 

The mass and gridpoint data for calculating rigid body inertia 
loads can be obtained from the User Modal File or the User 
Weights File. 

If the User Modal data is used, the node i.d. numbers and 
locations and either the diagonal or whole mass matrix are 
simply read from the User Modal File described in Section 
3.2. 3.1. NODE ID , XMAT, and DMASS, if present, are written on 
temporary storage unit MTAPE. If RMASS, the whole mass 
matrix, is present in place of DMASS, it is written on unit 
MASOFF. 

The User Weights File has a format similar to the C0NM1 and 
GRID cards which are NASTRAN bulk data cards. (See Section 
3.2* 3.2.1 and 3.2. 3.2. 2. The gridpoint locations are on 
the GRID cards while node i.d. numbers and a 6 X 6 mass matrix 
for each element are defined by C0NM1 cards. Since IDXYZ's, 
the degree of freedom and gridpoint indicators, are not 
stored, they are computed. The (6 X 6) mass matrices read 
in for each node are mapped into an NDF X NDF mass matrix 
(where NDF = 6 * the number of gridpoints) as illustrated 
by Figure 4-3. 

■/ 30 - 

RBITRN-3 
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NDF 



Figure 4-3 
MASS MATRIX 

If only a diagonal mass matrix is used the diagonal of length 
NDF is assigned to DMASS on unit MTAPE . If the whole mass 
matrix is used it is written by rows on unit MASOFF. 

The steps followed in computing the array of rigid-body forces 
and moments on the loads model are: 

1. Compute [G] , the gridpoint location vector matrix, using 
the array of gridpoint locations [XMAT] and the X,Y,Z 
center^-of -gravity locations, 

2. Compute [GTM] , the inertia matrix, by premultiplying [G] 
by the [MASS] matrix. 

tGTM] (NDF X 6) = [MASS] [G] (6 X NDF) 

[MASS] can either be a vector of length NDF or if off* 
diagonal elements are present as illustrated in Figure 1, 
an NDF X NDF matrix. 

3. Compute FRB by postmultiplying GTM by the 6 acceleration 
components of the c.g. 

'{FRB} = [GTM] '{-ACCEL} 


LISTING 

A listing of subroutine RBITRN can be seen in section 4.5.1. 
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4.5.1 Listing of Subroutine 


0000 R 000205 

oooo : 00002* 

0000 t 000027 
0003 | 123527 
0003 I I2353D 
0003 I 000030 
0000 I 0 00 DO 7 
0000 I 000033 
0000 R 00004 1 
QOflO R 000013 
0005 R 000006 
0000 R 000036 
OOOO R 000040 


frb 

0003 

ibegn 

OOOO 

I E NO 2 

0000 

IUMF 

□000 

MASOFf 

0004 

NDF 

0003 

NLINX 

0003 

NODE 1 

OOOO 

ONE 

0003 

SKIP 

ooao 

TIME 

oooo 

XDF 

0003 

ZOF 



RBITRN 



00162* 

FREQ 

oooo 

R 

000205 

G 

0003 

R 

002625 

GTM 

oono 

i 

00001* 

i 

l 

000030 

ID 

oooo 

I 

000023 

IDELMT 

0003 

1 

000032 

I Dx Y Z 

oooo 

i 

000025 

I END I 

1 

OOOOOO 

IFLTFl 

oooo 

1 

000022 

IGRDPT 

oooo 

I 

000032 

I 1 

oooo 


005063 

INJP* 

2 

000027 

J 

oooo 

i 

000031 

JP 

oooo 

2 

Q0002O 

K 

oooo 

i 

000010 

LNK 

L 

OOOOO 1 

MASOUT 

Q0Q4 

L 

000002 

MODLOT 

oooo 

I 

OOOOO t 

MTAPE 

0000 

i 

000024 

NC I D 


00 1 625 

NOFFE 

oooo 

I 

000034 

ND IF 

oooo 

I 

000005 

NENG 

oono 

i 

000006 

NEXT 

2 

000031 

NMODES 

0003 

I 

000664 

NNODES 

oooo 

I 

000035 

NODE 

O0n3 

i 

000665 

NODE i 0 

I 

OOOO IN 

nstart 

good 

I 

000021 

NUM 

0Q05 


000015 

NUMF 

0005 

L 

000004 

OFFDIG 


003457 

PM 1 

00q3 

R 

001627 

GDD 

0003 


002625 

RMASS 

0003 

R 

002625 

RPMASS 

fl 

000205 

SKP 

oooo 

R 

00D01 1 

START 

oooo 

R 

000012 

STOP 

OOOO 

R 

oooo is 

T 

1 

0q0002 

TRBCK 

0004 

L 

OOOQOO 

TRNOUT 

0005 

L 

000003 

UMF 

0005 

R 

OOOOOO 

XCG 

R 

001055 

XMAT 

OOOS 

R 

000001 

YCG 

oooo 

R 

000037 

YOf 

ooos 

R 

000002 

ZCG 



OOtOl 

1 ♦ 

00 I 0 1 

2* 

oojoi 

3« 

DO 1 0 1 

4* 

00)03 

S* 

00103 

5* 

QQ | 03 

5* 

00|03 

5* 

00)04 

5* 

00105 

5* 

00106 

5* 

00106 

5* 

00106 

5* 

00|Q7 

6* 

oono 

7* 

00)11 

6 • 

00112 

9* 

00)13 

|0* 

00 l 1 4 

11* 

001)4 

12* 

001)4 

13* 

DO | | 5 

14* 

00)16 

15* 

OOl 17 

16* 

00)20 

17* 

00 1 2 1 

IB* 

00)22 

19* 

00)23 

20* 

00)24 

21* 

00125 

22* 

00127 

23* 

00131 

24* 

00)33 

25* 

00135 

26* 

00)37 

27* 

00)37 

2«* 

00 1 40 

29* 

00|40 

30* 

00|40 

31* 

00)42 

32* 


Subroutine rbitrn 

c 

C* ROUTINE SETS up the HlfilO-BO'-r-INERTI a lords transformation 

c 

Include dim, list 
dim pr qc 

c* ARRAY DIMENSIONS 

c 

PARAMETER MAXDF • 4lQ 
PARAMETER MAXMOD . 100 

parameter haxnoo • 120 

c 

end 

PARAMETER NOmAX • MAXDF 
DIMENSION G ( 6 i NON A A I * GTm ( nDMAX . 6 ) 

DIMENSION SKpISOl 
DIMENSION FRB(MAXDF) 

0 I MENS I ON RPMASS|MaXnODiai6I 

COMMON /MOD AL/A (241 .NDF .NMODES* IOXYZ(HAXOf) .NNODES . mODE l D I MAXNOD ) , 
• XNAt (MAXNOD. J) »NDf FE »F RE 0 , «D 0 I M* X MOD > *DM*S5 < MAXDF » . RM A S S I M A X DF I « 
*PHJ (MAXOF.MAXMOOl . iumf.masoff 
COMMON /OATOUT/ TRNOUT .HrSOUT .MODLOT 

COMMON/TPINFO/XCG.YCG.ZCG.UMF.oFFDIS.FfREaO.TIHeiACCELUI »numf 
EQUIVALENCE iFrBI 1 > ,SKP< I ) »GI 1 ,1 ) ) 

EQUIVALENCE (RPMASSI 1*1*1) tRMASSI i ) ,6TM( l .1) ) 

Logical ffread 
logical OFFOiS 
logical umf 

logical trnout t MASOUT . MOO lOT 

Data IFLTFL/4/ 

data iumf nt 

data mtaPe /b/ 

data MASOFF/9/ 

INTEGER TRBCK/gNTRB / 

NAMELtST/ACC/ACCEL 

C 

IF I « NOT • FFREAD) GO TO 32 
C 

C* READ VEHICLE ACCELERATIONS FROm The FLIGHT CONDITIONS FILE 
REWIND IFLTpL 


OOnOnO 

000000 

000000 

000000 

000000 

000000 

000000 

DOOOOO 

000000 

000000 

OOOOOO 

000000 

oOoOOO 

OOOOOO 

oOOQOO 

OOOOOO 

OOOOOO 

OOOOOO 

□ooooo 

OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
NEWoooaoo 
NC woooOoo 
-OlOOOOao 
OOOOOO 
OOOOOO 
DOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

nooooo 

rtooOoi 



4-22 






! 



00 1 <13 

33* 



READ UFLTFLl A 


QQDOQ* 

00 1 H 6 

3*« 



READ ( IFLTFLI ENG 10 , EXTFOR » NEN S , NEAT 1 Nl I N* , RHODES .LNK ,5T ART , STOP 

O000 1 3 

00}*6 

35* 

C* 


skip rest of information records 

OOOOl 3 

P0161 

36* 



IF 1 NENG »GT« 01 REA0I1FLTFL) 

SKIP 

000030 

00 1 65 

37* 



IF tNE«T .GT. 0) READIIFLTFD 

SKIP 

0000*1 

00171 

38* 



IF (NMODES.GT. 0> READ ( 1 FLTFL 1 

SKIP 

000052 

00|7S 

39* 



IF (NL1N* ,GT* 0) REAO(|Fi.TFL) 

SKIP 

000063 

0020 1 

*0* 



NSTART * 6*NEXT*NeN« 


00007* 

00207 

*1* 


27 

READUFLTFLI T, (SrPUI 

* I-l. NSTART) » ACCEL 

oooiot 

00212 

*2* 



1 F (NL INK »EQ. 01 REaDUFLTFLI 

tODDt t ) .1-1 *N MODE S3 

000 l 17 

00221 

*3* 



IF (NL1NK ,NE, 01 READUFLTFLI 

1 SRp (11,1-1 *NL I NK 1 • 

000135 

00221 

**• 



• ( 

«0D( I) ,1.1 (RHODES 1 

000135 

0Q23* 

*5* 


28 

IF <T *LT* TINE1 GO TO 27 


0001 51 

00236 

*6* 



■ RITE f 6 » ACC 1 


(700166 

0023* 

*7# 

C 




000166 

002*11 

*8* 


32 

CONTINUE 


000173 

002*12 

*9* 



■RITE (6,99) (QDD( I ) t 1-1 »nM00ES1 

000173 

00250 

50* 


99 

FORMAT < 1 HO » * MODAL ACCELERATIONS »»10FlO.*l 

000206 

00251 

51* 



IF (.NOT* UMfl GO TO *2 


000206 

00251 

52* 

c* 




□00206 

00251 

53* 

c* 


Read from user modal file 


000206 

00251 

5** 

c* 

l*« 



000206 

00253 

55* 



CALL RDUMf 


000210 

0025* 

56* 



iR l TE ( MT APE 1 II DXYZ 1 I > « 1 -| , NDF ) 

000212 

0025* 

57* 

c 




n002 | 2 

00262 

58* 



IF (0FFD1GI GO TO 33 


000231 

00262 

59* 

c 




000231 

0026* 

60* 



■ R I TE CMTAPE 1 XcGiYCGiZCGt (NOOEIO(J) , J-l , NnoOES) . ( ( AM A T t I . J 1 , J- 1 . 3 1 

000233 

0026* 

61* 



{ t I-t iNNODEsl »(DMASS1K1 *K-I *NdF 1 

□00233 

003 10 

*2* 



Go TO 63 


000266 

00310 

63* 

c 




000266 

00311 

**• 


33 

*R| TE 1 MTAPE 1 XCG 1 yCG 1 ZCG • ( NODE 1 0 ( J) » J-l ,N moDES > . * < XpAT U » J 1 . J* 1 , 3 1 

000270 

00311 

65* 



(. I - 1 tNNO DC 5 1 


000270 

00331 

66* 



GO TO 63 


000320 

00331 

67* 

c 




(700320 

00332 

66* 


*2 

continue 


000322 

00332 

69* 

c 




□00322 

00332 

70* 

c* 


read from user heights file 


000322 

00333 

71* 



Read (5, *31 NN ODES 


000322 

0033* 

72* . 


*3 

FORMAT (13) 


000327 

0033* 

73* 

c* 




000327 

00337 

7** 



NoF ■ * • NNOOES 


000327 

00340 

75* 



PRINT 307, NNODES,NOF 


00033* 

003*0 

76* 

c* 




00033* 

003** 

77* 



DO 1 ** J-l .N nODES 


0003*6 

003*7 

78* 



NODE 10 I J 1 - J 


000355 

00350 

79* 



DO 1** J“1 *6 


□00362 

00353 

80* 



NUM ■ **» J-l 1 ♦ I 


000362 

0035* 

81* 

1** 

IDXYZ(NUM) ■ I0*J*I 


00D365 

0035* 

82* 

c* 




000365 

0035* 

83* 

C*t 

Ml 



000365 

OO 35 H 

8*« 

c 


READ 6R1UP0INT ID*S AND TmE MASS MATRIX 

000365 

OO 35 * 

85* 

c* 


J • GRIDPOINT l.D. 


000365 

0035* 

86* 

c* 




000365 

00357 

67* 



00 *a I6RDPT » t.NNODES 


000*00 

003*2 

88* 



read. (5,**, end-53} jdelnt. j. 

NC I 0 • RPMA5s< J*l»l>» 

000*00 

003*2 

89* 



• RPMASSt J*2,l 1 .RPMASSt J,2,2 1, 

RPMASS ( J • 3 » 1 1 .RPMASSl J.3,2 1.IEND1 

000*00 
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a ^ 


00375 

40 * 



REaD! 5 » 4 SJ IbEGN » RPM ASS l J , 3 ,3 ) tRPMASS < J * 4 « 1 ) tRPM ASS l J » 4 , 2 }, 

00375 

41 * 



• RPMASS 1 J » 4 i 3 ) .RPMASS! J , <* , 4 1 , R PM A SS ( J , 5 , | ) . RPMASS 1 J *5 »2 )» 

00375 

42 * 



• RPMASS ( J , 5 « 3 ) • 1 END 2 

0041 ) 

43 * 



IF UEN 01 .NE. 1 BEGN) GO To 64 

00413 

44 * 



R£AO 1 S * 45 ) l BEGN .RPMASSl J , 5 ,4 > , RPMASS 1 J . 5 ,5 1 i RPMASS < J • 6 . 1 1 . 

00413 

95 * 



• RpMASS < U . 6 • 2 ) .RPMASS! Ut 6 t 3 ) »RPM ASS ! J , 6 , 4 I .RPMASS ( J » 6 * 5 )> 

00413 

96 * 



• RPMASS t U . 6 « 6 ) 

00426 

97 * 



IF CIEN 02 .HE • IBEGN) GO TO 64 

00430 

98 * 


48 

continue 

00430 

99 * 

C 



00432 

) 00 * 


53 

continue 

00432 

101 * 

C« 



00432 

102 * 

c* 


READ GRID POINT LOCATIONS 

00433 

103 * 



DO 1 55 I&ROPT * 1 iNNODES 

00436 

104 * 


1 SS 

READ ( 5,46 , END- 55 ) JO, UNATI Id*J) i J- 1 , 3 ) 

00446 

105 * 


55 

NR 1 TE (MTAPC 1 1 1 OXy Z (11 . I ■ 1 . NOF I 

00446 

1 06 * 

c 



00454 

107 * 



IF (OFFDIGI fiO TO 54 

00454 

108 * 

c 



00456 

) 09 * 



NR 1 TE 1 MT APE) XC G i yCG tZCfi t 1 NODE I 0 l J) ,JaJ ,N nODCS> . < (AMAH I » J» * J»1 ,3) 

00456 

HO* 



( • 1*| iNNODES) < 1 (RPMASS t X ■ 1 i 6 ) « J-l.NNOOESl 

00505 

111* 



GO TO 63 

00505 

112 * 

c 



0 QS 05 

113 * 

c* 


nrite off diagonal elements ONl t 

00506 

114 * 


54 

CONt InUE 

00507 

1 IS* 



Nr J TE 1 MT APE ) XCG»rcG*ZCG» r NoDEjDl j) » Jaj , N MOOES 1 ,((XMAT(ltUl,J»l, 3 ) 

□0507 

116 * 



It I-ltNNOOES) 

00507 

117 * 

cx 


X 

00507 

118 * 

cx 


X 

00527 

119 * 



DO 58 U*l»NNoOCS 

00532 

120 * 



JP a 6* ( J*» 1 ) 

00532 

121 * 

c 



00533 

122 * 



DO 58 !-l t 6 

00533 

123 * 

c 



00536 

124 * 



DO 56 1 ! - l.NDF 

00541 

125 * 


56 

DMASSIII) » 0 . 

00543 

126 * 



DO 57 K*l ,6 

00546 

127 * 


57 

DMASSIUP * K) a RpMASS I U » t tK > 

00550 

1 28 * 


56 

NR 1 TE t MASOFF 1 (DMASsUI)i 11*1, NDFI 

00560 

1 24 * 



GO TO 63 

00560 

130 * 

c* 



00561 

131 * 


44 

FORMAT ( 0 X< 3 lB,SFft. 2 * 1*1 

00562 

132 * 


45 

FORMAT! 1 8 , er$ .2 , I 0 ) 

00563 

133 * 


46 

Format «8xt id.ax.3FB.2i 

00564 

134 * 


47 

FORMAT 1 1 HO t • DATA CARD OUT OF 5 E 8 UENCE NEAR ELEMENT 10 N 0 t».I 4 ) 

00565 

135 * 


64 

PRINT 47 I 0 XYZ{J) 

00570 

136 * 



STOP 

00570 

137 * 

c 



00570 

138 * 

c 



00571 

139 * 


63 

CONTINUE 

00571 

140 * 

c 



00572 

141 * 



REMIND NT APE 

00573 

| 42 * 



READ ( MT APE 1 ! lOXyZ( 11 • 1 * 1 iNOF) 

00601 

143 * 



nrjte uoon iioxYim* i«iinofi 

00607 

144 * 



IF ( OFFO 1 G 1 GO To 15 

00607 

145 * 

c 



00611 

146 * 



READ ( MT APE 1 XCGtVCGtZCGt | NODE lD{ j) , j-j . NnoDEs 1 .((XMAT(ItUI«Ua|,j) 


000421 
00042 | 
000421 
000440 
000444 
000444 
000444 
000462 
DQ047I 
0004 7 1 
000471 
000471 
O00471 
000471 
000475 
000517 
000&17 
000534 
000534 
000536 
O00536 
000576 
000576 
000576 
000500 
000600 
000600 
000600 
000600 
000637 
D00637 
000637 
000543 
000543 
000551 
000651 
000556 
000656 
000660 
000702 
000702 
000704 
000704 
000704 
000 70** 
000704 
00071 ( 
00071 1 
00071 | 
000714 
000714 
000714 
000716 
000735 
000747 
000747 
000751 



®TO WNEM0 



C£2 


JbW*, 


Er 


fri 



00*11 

147* 


t 

» |*1 ( NNQDE$> »(DMAS5<K) »KM iNDF) 

000751 

00*35 

) 48# 



SQ TO 18 

O01OD4 

00*36 

149# 


IS 

read imtapei xcg »ycg,zcg» (nodeidi j» » j*i Anodes) , < ixkatj i » j> . j*i .3> 

00100* 

00*36 

150# 


( 

l |*| i NNOOES > 

00100* 

00*36 

151* 

C 



□0100* 

00*5* 

152# 


18 

continue 

001037 

00*S7 

153# 



•RITE (*.302> IN00E1D< I > . tal ,NNQDE s> 

00 1 037 

00**5 

) 54# 



WRITE (*,3031 ( (XNATI1 , 4 ) > J* 1 *3) i |-1»NN0 DeS) 

DO 1 05* 

00*76 

155# 



IF ( HASOUT ) PRINT 304, ( DHASS ( K 1 , K- 1 ,NDf > 

001075 

00705 

IS*# 



DO 20 1-1,6 

001 115 

00710 

157# 



DO 20 4«1,NPNAX 

001115 

00713 

155* 



5(1 , J) ■ Q. 

OOIU5 

0071*1 

J 59# 



SThIJ»I1-0« 

- 001 IIS 

007)5 

160# 


20 

continue 

001123 

00720 

161# 



00 130 4-1, ndf 

001123 

00720 

162# 

c* 


compute node number 

001123 

00723 

163* 



nooei-idxyzi JI/10 

001131 

00723 

164# 

c* 


COMPUTE DEGREEE-OF-fREEDOm 

00113! 

0072*1 

1 65# 



NDIF- IOXYZ(UI-NOOEI*IO 

001135 

00725 

166* 



K-Q 

001 140 

00726 

167# 


80 

CONTINUE 

001142 

00727 

165* 



KaX ♦ l 

DOl 142 

00730 

|69* 



IF (X .GT, NN0DE5) GO TO 1*0 

001144 

00732 

170* 



Ip ( NODE I D ( K > *NE« NOOEU GO TO 80 

001150 

00734 

171* 



NODE-* 

001 IBS 

00735 

172* 



XOF-XMAT(NOOE,l)-XC« 

0011*0 

00736 

173. 



YDF*XMATtN0DE,2>-YCG 

0011*3 

00737 

174* 



Z0F-XNAT(N0DE.3I-ZCG 

OOU6* 

00740 

175* 



ONE 

001 171 

00741 

176* 



GO TO (90,100,110,120,120,120) ,N01F 

001173 

00742 

177* 


90 

continue 

00 1 207 

00743 

178* 



G ( | ,4 t > ONE 

001207 

00744 

179* 



G(S, U>- ZDF 

001210 

00745 

180* 



6(A, J>— YDF 

001212 

0074* 

18|* 



GO TO 130 

001214 

00747 

182* 


too 

CONTINUE 

00121* 

00750 

183* 



8 ( 2 , J ) -ONE 

00 1 2 1 « 

00751 

184* 



6<4»J)--ZDF 

001217 

00752 

185* 



G ( * , J ) -XDF 

nO I 22 1 

00753 

1 8** 



GO TO 130 

001223 

00754 

187* 


no 

CONTINUE 

001225 

00755 

1 88# 



6(3,4) * 0 NE 

001225 

00756 

1 69* 



6(9, J) -TOF 

00122* 

00757 

190* 



G (5,4 ) —XDF 

□01230 

00760 

191* 



GO TO 130 

001232 

00761 

192* 


120 

continue 

001234 

007*2 

193* 



G ( NO I F , 4 ) a ONE 

DO 1 2 3* 

007*3 

194* 



GQ TO 130 

001 240 

00764 

195* 


160 

PRINT 170 

001242 

00766 

1 96* 


170 

FORMAT (lHl,IOX, ’ERROR ENCOUNTERED IN GCALC ••••••< .//) 

001250 

00767 

197* 


130 

continue 

001250 

00767 

198* 

c 



nO 1 250 

00771 

199* 



If { .NOT. OFFOIG) GO TO 440 

r>0 1 250 

00773 

200* 



REWIND MASOFF 

O01252 

00774 

201* 



00 420 4-1, NDF 

001255 

00777 

202* 



READ(MASOFF) (OMASS(K) ,k-i fNDF) 

nO l 26* 

01005 

203* 



IF (HASOUT) PRINT 3QS, J» ( DM ASS ( K ) »X-l ,NOF) 

001277 
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OIOIS 

201* 


DO 920 1*1 *5 

001315 

0 1 020 

205. 


Ba 0 • ODD 

001329 

01021 

205* 


DO 910 K-i »NDF 

001332 

01029 

207* 


B»B* OHASS(K}*«M,K> 

001332 

01025 

208* 

910 

CONTINUE 

001335 

01027 

209* 


OTM I J > 1 1 * B 

001335 

01020 

210* 

120 

continue 

001395 

01032 

211* 


60 TO ISO 

001395 

01033 

212* 

C 


001395 

01039 

2U* 

990 

CONTINUE 

001352 

01039 

211* 

C 


001352 

01039 

2)5* 

cmx; 

iXXXXXXXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXXXXXXAXXXXXXXXXXXXXXXXXXXXXXXX 

001352 

01031 

215* 

CXXXXXXIXXXXXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAX 

001352 

01031 

217* 

c 


001352 

01035 

218* 


DO 250 1*1*5 

001352 

01 QHO 

219* 


Do 260 J«1,N0F 

001373 

01013 

220* 


STM J, n-DMASSl J) • 6(1, J) 

001373 

01011 

221* 

250 

continue 

001901 

01017 

222* 

950 

CONTINUE 

nO 1 90 i 

01050 

223* 


DO 300 !-i»NOF 

00 l 9D 1 

0 1 053 

221* 


frbui - 0. 

00HO7 

01051 

225* 


DO 100 U* 1 *6 

nQ 1 1 1 2 

01057 

224* 

300 

FR0(J> • FRS M ) - GTNU.Jl • AcCElIJ) 

001112 

0)052 

227* 


PRINT 305, IFRBI1I* I*1.N C F> 

001129 

01070 

228* 


call TRANsIFRB.NDF.TRBCK) 

001937 

01071 

229* 

301 

FORMAT < *0‘ , IOX,» IDXYZS - », Iq0</20U>» 

nO 1 9*9 

01072 

230* 

302 

FORMAT <*0*,IOX,’NodEIDS - * * 1 00 1/2015) | 

001999 

01023 

231* 

303 

FORMAT I 'O * , | Ox > * XMAT • * , &0 < /1 1 3f » .2 , 9X 1 ) ) 

00199* 

01071 

232* 

309 

FORMAT [•O'tiaX.’DNASS - •» 25(/2or6.2)l 

00 199* 

01075 

233* 

305 

FORMAT ( *0* , IOX » '0FFDIA60NAL MASS MATRIX* RON No* * » | 9 ,251 /20F5.2 

00)999 

0 1 Q7S 

231* 


,11 

001 99* 

01075 

235* 

305 

FORMAT CO*. * RIGID BOOT INeRTJA L0A0S TRANSFORM FfiB a *, 

00)999 

01075 

235* 


* 300I/I5F8.2I 1 

001999 

01077 

237* 

307 

FORMAT NNOOES ■ * , 1 3/ * N0F ■ »»131 

00)999 

Olioo 

238* 


RETURN 

00)999 

0I1D1 

239* 


end 

00150) 


end Of COMPILATION: NO DIAGNOSTICS* 


\ 
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4.6 Description of Subroutine RDUMF 


OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 
IDENTIFICATION 

Name/Title SUBROUTINE RDUMF 

Programmer/Date F. STRATMAN 4/74 

Author/Date F. STRATMAN 4/74 ___ 

Organization/Installation LEC-ASD FOR SMD __ 

Machine Identification UN I VAC 1110 _ 

Source Language FORTRAN V 

PURPOSE 

RDUMF reads the User Modal File. 


USAGE 

e Calling Sequence 

Call RDUMF 


METHOD 

RDUMF reads the User Modal File of the Format in Section 3. 2. 3.1. 
Unformatted read operations are used. The unit used for the 
file is IUMF . NUMF is the position of the desired file. If 
the first modal file is desired NUMF =1, if the second NUMF 
= 2, etc... The value of NUMF is input through namelist $TPDAT. 
The MSC*L0CALIB File skipping routine, FSBSFL, is used to 
position the unit to the start of the desired data. A descrip- 
tion of FSBSFL can be found in Appendix B. A flow chart of 
this subroutine can be found in Figure 4-4. 


LISTING 


A liting of subroutine RDUMF is seen in Section 4.6.1 



RDUMF- 1 
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4.6.1 Listing of Subroutine RDUMF 

®FOR*S RDUHf ,rpumf*rduhf 
f OR SRXX-1.2/R3/74-R l.l 45, '.2S (0,01 


05 

to 

oT 

CO 

oi 


subroutine rdumf entry point ooozso 


... STORAGE WSEDI_CPD_E(_! ) 000242 1 DAT A ( 0 ) 0000731 BLANK C0MM0N(2> 000000 


. coupon rlockst 

... 0OD3_. NOPAL . 123651 
0q04 TP1NF0 000016 
0005 PAYOUT 000003 


EXTERNAL REFERENCES (block* NAME) 


OflOA 

F5BSFL 

0007 

NRBUS 

POIG 

N101* 

Oou 

NJ02* 

0012 

NPRTS 

0Q.I3 

NtBUl 

0014 

NERR3I 


storage assignment (Block* type, relative location* nahei 


0000 


000005 

1 0 1 F 

0000 


0o0027 

102F 

0001 


aoooi 2 

1 2 1 G 

OOO! 


000037' 

I 3 | 6 

onol 

oninB 1 

1 36$ 

0001 


0Q0056 

1 42G 

0001 


000067 

I 44G 

OOO 1 


000070 

15)6 

0001 


000101 

1576 

ODo 1 

000114 

1676 

0001 


000122 

1746 

0001 


000)37 

2066 

pool 


000)66 

2206 

0001 


000172 

2246 

0001 

000204 

2326 

0001 


0002 H 

SOL 

0003 

•R 

000000 

A 

0004 


000007 

ACCEL 

0003 

R 

00)772 

DMAS' - 

00o4 

000005 

FFREAO 

0003 

R- 

001626 

FREB 

0000 

I 

000001 

1 

Q0q3 

I 

000032 

idxtz 

OOpP 


000047 

INJP* 

0000 

1 000000 

1 ST ATS 

0003 

1 

123127 

IUMF 

0000 

I 

000002 

J 

OOoO 

1 

000003 

K 

0003 

I 

122530 

MAsOFr 

0Qn5 

L OOOOOl 

MASOUT 

0006 

L 

000002 

MQOLOT 

0003 

I 

000030 

NDF 

00q3 


□01625 

NOFfE 

0003 

1 

000031 

RHODES 

OOo3 

I 000664 

NNOOEs 

0003 

1 

O 0 O 666 

nooeid 

0004 

1 

000016 

nunf 

0004 

L 

000004 

OFFDIG 

0003 

R 

003457 

PH 1 

0003 

001627 

BOD 

0003 

R 

002625 

RM ASS 

0000 

R 

000004 

SKIP 

0004 


000006 

TIME 

0005 

L 

000000 

TRNQUT 

0004 

000003 

UHF 

0004 


000000 

XCG 

0003 

R 

00106 S 

XMAT 

0004 


00000 ) 

YC6 

0004 


000002 

ZC6 





.PDlOl 

1« 


subroutine roumf 

OOnOnO 

00101 

2* 

C 

a routine to read the user modal file 

000Q00 

00103 

3 * 


LOGICAL GFFOIG 

dooood 

00 J 04 

4 * 


include dim*list 

O0O0O0 

amo4 

_ 4 * 

D|M 

PROC 

000000 

00 | 0 4 

4 « 

C* 

array dimensions 

oooooo 

00104 

4 * 

c 


000000 

00106 

4 * 


parameter haxof ■ mo 

oooooo 

00106 

4 # 


parameter ha*moo . 100 

oooooo 

00)07 

N* 


parameter HAxNOD « |20 

OOODOO 

00107 

4 * 

c 


oooooo 

00)07 

4 * 

END 


oooooo 

PPl 10 

5 * 


COMMON /MODAL/ A ( 24 ) *NOF.NmODES» IDXYZ(MAXOF) * NNOoES 1 vODE ID(MAXhOD) « 

oooooo 

00 1 10 

6* 


• XMAT ( MAXNOD ,3 | » NOFFE • FREB * BOD | M A XMOD ) .OHASS ( M AXDF ) »RM ASS 1 M A XDF ) , 

oooooo 


• 4-29 



00»i0 7* *PHI I NAXDF .NAxMOO > »IUMF*«A sOFF 

00 1 J l 8* CoMMON/TP l NFO/XC6,TC6tZC6,UMF,oFFDlG*FFRE AD, T |Wf»ACcEU*> .NUNF 

□0 1 ) Z ?• Common /DATOUTz TRNOUT , MaSoUT fMOOLOT 

00U3 1 0* LOGICAL T8N0UT»MA50UT,MQDl0T 

oo i i n u* data iumf nt 

.00 I 1 4 12* C* SKIP TO 0ES1RED DATA 

001U 13* CALL FSBSFL < lOMF ,NUMf i 1ST ATS I 

001)7 1 4* REAO(IUMF) (AII).]>ltl2l 

00|2S |S* RE AO t 1 WMF ) NDF .NNCDES > ( I DxYZ I 1 ) • 1 * 1 *NDF I ,NNOOES » < NnDC I D ( J 1 , J* l . 

□0*25 14* ft NNOtLES 1 « I4XMAT1 I • J 1 » J« l ,3 J *1*1 t NNOOCS) . IDMASS(K) *K» 1 t N0F ) 

00)55 I 7* PRINT 101, <A<I>* (•t»12>, NDF.NMODES. NNqdES 

OOiftA 1ft* DO 32 I- 1, UNDOES 

00)71 19* READI IUMF) FRE«» <PH| < i ■ J) , J* 1 »nOF| 

00200 20* 32 IF 1 MODLOT ) PRINT 102» I *FrEQ » I pH I ( I , J ) , J-l.NOFl 

00212 21* IF (.NOT. OFFDIG) GO TO SO 

002*4 22* RCADMUHF) SKIP 

00217 23* DO 35 l-l.NDF 

00222 24* READ ( I UHF > (RNASs(j) * J«l,NDF» 

00230 25* 35 RR I TE ( MASOFF I lRNASS<J> * J*l»NOFj 

00237 26* 50 RETURN 

00240 27* 101 FORMAT ('O'* 20 Aft/ 1 0 * »* NO, DEGREE 5-OF-FREEDOH * • , Im/IOX • »N0* OF 

00240 28* • MODES * * , 1 4/ 1 OX • < NO * OF NODES ■ *,141 

00241 27* 102 FORMAT CO', * MODE NO. », |3,» .FRE9. • •, F7.4.« -PHIS • », 

0024 1 30* • 1 0 1 / 1 OF 10.2)1 

00242 31* END 


000000 
000000 
O00000 
000000 
000000 
NEWOOOOOO 
NERO0O0QO 
000004 
O000I5 
POOOIS 
-02000073 
000114 
000114 
000125 
000155 
000157 
000 1 44 
000 I A A 
000 1 7 A 
00021 I 
O0O24I 
000241 
000241 
000241 
000241 


ENO OF COMPILATION! NO DIAGNOSTICS. 


( 



4-30 



4.7 Description of Subroutine TRANS 


OUTLINE FOR SCIENTIFIC SUBPROGRAM DOCUMENTATION 


IDENTIFICATION 


Name/Title 

SUBROUTINE TRANS 

Programmer/Date 

F. STRATMAN 4/74 

Author/Date 

F. STRATMAN 5/74 

Organization/Ins tallation 

LEC-ASD FOR SMD 

Machine Identification 

UNIVAC 1110 

Source Language 

FORTRAN V •' 


PURPOSE 

TRANS premultiplies the force and moment arrays setup in RBITRN, 
MILTRN, and AFTRAN by their corresponding "loads model to finite 
element" transform matrices, punchs NASTRAN "Force" and "moment" 
cards, and writes NASTRAN force card images on the NASTRAN 
Input Loads File. 


USAGE 

• Calling Sequence 

Call TRANS (POSTML, NCOLS, ARAYCK) 


Parameter 


Dimension 


T££e 


POSTML 


MAXDF R 


NCOLS 


I 


Description 

The array of forces and 
moments acting at the degrees 
of-freedom of - the loads model 

The number of columns filled 
in POSTML 


ARAYCK 


H 1-word identifier of POSTML 



TRANS- 1 



• Error Messages 

When the wrong transform array card deck is detected upon 
comparing ARAYCK with the data deck identifier, the following 
message is printed. DATA DECK OUT OF SEQUENCE 


METHOD 

m Symbol Definition 


Coding 

ASSIGN 

BUFF 

CID 

DATNAM 

FFEVAL 

I POS 

I.ROW 


Type 


R 

A 

I 

A 

R 

I 

I 


I START I 

NAME A 

NASFIL I 

NDFFE I 


PREMUL R 

SCALEF R 


Description ' Uni ts 

(in text) 

A 280 word buffer to store the NASTRAN 
force card images as they are computed 

Coordinate system i.d. 

The one word i.d. of the transform 
data deck 

The finite element force value being 
computed 

Variable used to identify the position 
in an array of a certain desired value 

The degree-of-freedom of the finite 
element model for which a force is 
being computed 

Position in BUFF where data encoding 
is to start 

Identifies '’FORCE" or "MOMENT" NASTRAN 
card 

Unit number of NASTRAN INPUT LOADS File 

Number of degrees of freedom in the 
finite element model 

Premultiplier - the transform matrix 

Scale factor - CMASS for force card, 

CINERT for moment card 
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Type Description Units 

R Load set i.d. number 

R 3-component force vector for NASTRAN 

card 


• Model 

The general transform process is described in Section 2.1. 

Due to the limited core space available only one finite ele- 
ment force value is processed at a time. 

The processing consists of: 

1. reading a row of the transform matrix 

2. postmultiplying by the array of forces on the loads 
model 

3. creating the NASTRAN Force Card image 

4. writing the card image on NASFIL and punching, a 
NASTRAN bulk data card. 

The NASFIL format is illustrated in Section 3.1.5. The 
NASTRAN bulk data ’’FORCE" card is illustrated in Section 3.3. 

ASSIGN is. an NDFFE X 3 matrix which corresponds to the trans- 
form matrix. For each non- zero row of the transform matrix 
there is a corresponding row of ASSIGN which provides the 
following information about the corresponding FFE value 
computed: 

Column 

1. finite element gridpoint i.d. number 

2 1 + static force being created 

2 •+ static moment being created 

3. 1/2,3 corresponding to X, Y,Z d.o.f. associated 

with the gridpoint 

The program flow is shown in Figure 4-5. 

LISTING 

A listing of subroutine TRANS is found in Section 4.7.1. 

TRANS-3 
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SUBROUTINE TRANS 
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TRANS -5 




si aovd nvNrorab 


4,7.1 Listing of Subroutine TRANS 

®FoR*s TRANs * TRANs 

FOR Seix-J 2/23/7H«2| :*«5:3D <Q f l 


SUBROUTINE TRANS ENTRY POINT 000323 


STORAGE used: COdEII) 00033*1 DATA (0) Onl**3: blank CONMON(J) 00000 D 
, common slocks: 

0003 NODAL 123531 

odor factor ooooo* 

Ooos DATOUT 000003 


EXTERNAL references 1 BLOCK , NAME 1 


OQO* 

0007 

0010 

oon 

0012 

0013 

oon 

0015 

0016 
001 7 


NTRAN 
NNCOOS 
NRNLS 
NPR T» 

N I 02* 

nstops 

N 1 0 1 S 
N AD U S 
N I 03* 
NERR3* 



storage assignment iblock* type, relative location, name) 


0001 


□00015 

l*SG 

000 1 


OnOOl* 

ISDr, 

Oool 


00010* 

2|*G 

0001 


0001 15 

223G 

0000 


00 053 3 

3 2 8 F 

OODO 


00053* 

32’F 

0001 


0O025* 

350L 

0000 


0005*5 

35 1 F 

□ 003 

I 

003*57 

ASSGN! 

0003 

I 

003*57 

ASSGN2 

OOO* 

L 

000003 

CARDS 

0000 

I 

000*** 

CID 

000 3 


001773 

DMAS S 

0000 

R 

000*53 

FFEVal 

0 00 3 


000032 

IDXY2 

0000 

I 

000*5* 

1 1 

0000 

I 

000*50 

ISTART 

0003 


123527 

IUMF 

ooos 

L 

oooooi 

masout 

ooos 

L 

000002 

MODLOT 

0003 

I 

00 1 625 

NDFFE 

oouo 

1 

OOO*** 

NINE 

0003 


003*57 

PHI 

0000 

R 

00055* 

PREMUL 

OOO* 

I 

000002 

SID 

0000 

R 

000556 

TAP 

OQOO 

R 

000**0 

VECTOR 

0003 


001055 

XMAT 


00 | 0 1 

1* 


subroutine transipostml, 

00101 

2* 

C 


00(01 

3* 

C* 

this routine reads one R 

00101 

*• 

c* 

by THE POSTMUlTIPLIER IF 

00(01 

5* 

c* 

OR moment CARD 

00(01 

6« 

c 

f 

DO | Q3 

7* 


include dim, list 


OOol . 0000*8 167 g 0001 000Q51 17?$ 

oool 0000*3 3 0 5 l 0000 0 Q 0 & 2 * 32SF 

ODq 1 00023* 3 30L 0000 0005*2 3*&f 

000 3 000000 A 00 oO 000506 ARR 

0003 i 003*57 ASS6N3 0003 I 003*57 ASSlr.w 

OOQ* 000 00 1 C1NERT 000** OOOOOo CMaSS 

00o3 001*2* FREQ 0000 | 000*51 i 

0000 00 1 *2* INJP* 0000 | 000*55 IPOS 

0000 I 000*5 2 j 0000 1 000*5* {. 

□OoO I 000*30 NAME OOOO 1 000**5 NAsfli 

0003 00003 1 NMDDEs 0003 000*** NNOOES 

0QQ3 001*27 ooo 0003 002625 RMASS 

0000 r OOQS5A tmOQ OOQO r 000556 trh 


n^ols.aratck 1 

0# OF A PREMULT1P1ER aT A T . mE . MULTIPLIES 
NECESSARY, ANO PRINTS T«E NAsTkAN FORCE OR 


onnl (I0i»ni3 ?0 *g 

OOna 000530 32*F 

OUOO OOOS** 3**f 

OOnO 000* A5 ASSGN 

0000 R OOOOOO SUFF 

OOnO I 000**3 DATNAm 
oono i 000*32 i B lank 
OQoO 1 000**7 | ROW 
0Qo3 123530 MA50FF 
0003 DO 0 0 30 NDF 
00n3 000**5 NODEID 

000* R OOOOOO SCALEf 
OOOS L OOOOOO TRNOUT 


00 f> 0 r> I 
oooon i 
000001 
oouiio 1 
naooo i 
oooooi 
ooooo i 
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00103 

7* 

0 1 H PROC 

000001 

00103 

7* 

C* ARRAY DIMENSIONS 

000001 

00103 

7* 

C 

000001 

00104 

7* 

PARAMETER MAXDF * 4|0 

00000 I 

00105 

7* 

parameter maxmod - 100 

000001 

00103 

7* 

PARAMETER maxnoo • 120 

OOOOOI 

00104 

7* 

c 

OOOOOi 

00 104 

7* 

ENO 

O0000I 

00107 

8* 

DIMENSION BUFFI 2801 

OOOOOI 

OOUQ 

4* 

DIMENSION POSTML 1 HAXPF) »fR£MUl (NAXOF) 

000001 

001 1 J 

|0* 

DIMENSION NAME 121 ,IbLANM4> ,SCALEF!2> .VECTOR! 3) 

O0O0D1 

OOl 12 

11* 

DIMENSION TRBImAXOF | «TAP(mAxOF 1 »TmOO (MAX OF } 

OOOOOI 

00113 

12* 

COMMON /MODAL/A I 24), NDF iNMODES • I OXYZ( MAXDF I «NN0 dES»wO0E1(M MAXNOO ) » 

O0000 1 

00U3 

13* 

•XMATI MAXNOO |3) »N0FFE»FRE0»000(n4Xm 00) iOMASS(MAXOF) »RNASS( MAXDF ) , 

OOOOOI 

00l|3 

14* 

•PH I1MAX0F, MAXMOD ) ,|UHF»HASOFF 

OOOOOI 

00114 

- IS* 

COMMON/ FACT OR /CMAS5|C INERT tS ID, CAR 05 

OOOOOI 

00114 

14# 

COMMON /OATOUT/ TRNOUT , MASCOT , MOOLOT 

OOOOOI 

OQt 14 

17* 

LOGICAL TRNOUT,MASOUT, MOOLOT 

OOOOOI 

0011? 

ia* 

INTEGER ARAYCK,OATNAM,AS5I5N(MAXOFO) . ASSgn 1 ImAXDF » i } , 

OOOOOI 

00|}7 

19* 

« ASS6N21MAXDF,3) , AsSGNJl MAX0F,3) 

OOOOOI 

00120 

20* 

INTEGER ClD/O/ 

OOOODI 

00122 

21* 

INTEGER 5{0 

OOOOOI 

00123 

22* 

LOGICAL CARDS 

ogoooi 

00124 

23* 

DATA NASFIL/10/ 

OOOOOI 

00124 

24* 

data nine/ah*??*??/ 

OOOOOI 

00130 

25* 

OATA NAME/4HF0RCE »4HM0M£ m T/ 

OOOOOI 

00132 

24* 

data iblank/4«4H / 

OOOOOI 

004 34 

27* 

EQUIVALENCE t SC ALEF U 1 , Cm *SS > 

OOOOOI 

00135 

28* 

EQUIVALENCE 1 SCALEF ( 2) ,C INERT ) 

OOOOOI 

00} 34 

29* 

EQUIVALENCE (PREMUL ! 1 1 tTRBI 1 1 • T AP f 1 I ,TM00| 1)| 

OOOOOI 

00]37 

30* 

EQUIVALENCE (ASSIGN! 1 .11 »A5SGN| ( 1,1 1 , ASSGN2 I 1 ,1 1 ,AS«GN3(1 ,1 ) » 

OOOOOI 

00137 

31* 

• PMl ( | , | ) ) 

OOOOOI 

00140 

32* 

NAMEL1ST/ASSGN/DATNAM,NDFfE, ASSGN l ,A5SGN2 , ASSGN3 

oaooo.i 

00141 

334 

NAmEL1ST/ARR/TRB«TAP»TMOO,IROV 

OOOOOi 

00142 

34* 

Call NTRAN 1 N ASF 1 l t 1 0 t 

000002 

00143 

35* 

1 START * -|3 

000004 

00 144 

34* 

DO 300 l-l.NDFFE 

0 000 1 4 

00147 

37* 

DO 300 J»l»3 

O00QI4 

00152 

38* 

300 ASSIGN! I » J ) * 0 

C00Q1 4 

□ 0155 

34* 

REA0I5, ASSGNl 

000023 

00|«0 

40* 

IF (OATNAM ,E0. ARATCKJ Go TO 305 

00002 7 

00)42 

41* 

PRINT 329 

000033 

00(44 

42* 

STOP 

O00037 

00145 

43* 

305 CONTINUE 

noo042 

00(44 

44* 

00 330 I*1»NqFFE 

000042 

00171 

45* 

00 310 J«1»NC0LS 

000051 

00174 

44* 

3 10 PreMULUI - 0. 

O00051 

00174 

47* 

READ (5,ARR,EN0*350) 

O0O052 

00201 

48* 

IF (TRNOUT) PRINT 351, OAtNAM.iRor, (PreMuLCJI* J-l.NCOLS) 

00004 I 

00212 

44* 

FFEVAL • 0, 

O0O074 

00213 

50* 

DO 320 U"! iNCOLS 

000104 

00214 

51* 

320 FFEVAL ■ FFEVAL * PREMUl<J> *POsThL(J> 

000104 

00220 

• 01 AGNqsT I C* The TEST FOR EQUAL I Ty bETrEEn NON- INTEGERS Hay NOT BE MEANINGFUL. 


00220 

52* 

IF (FFEVAL ,CQ* 0.) GO TO 330 

0001 10 

00222 

53* 

DO 323 11 - 1,3 

000115 

0022S 

54* 

323 VECTOR ( 1 1 ) * 0. 

OOOl 15 

00227 

t 

55* 

IPOS * ASSIGN! I ROB , 3 1 

0001 14 



I 
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00230 

56* 

00231 

57? 

00231 

58* 

00232 

59* 

00232 

60* 

00293 

61* 

002? 3 

62* 

00253 

63* 

0025? 

6?* 

00256 

65* 

90256 

66* 

90256 

67* 

90267 

68* 

90267 

69* 

30267 

70* 

30272 

71* 

0027? 

72* 

00275 

73* 

00300 

7?* 

00301 

75* 

00302 

76* 

00303 

77* 

0030? 

78* 

00305 

79* 

00306 

80* 

00307 

81* 

00310 

82* 

00311 

83* 


VECTOR* IPOS) * FFEVAL 
IPOS - ASSIGN! I ROW ,2 ) 

•RITE OR PUNCH NA5TRAN cArO 

IF{CARDS) «RITE!3| ,326> N AHE ! IPC5 > , S I D . AS 5 l SN I l RO« , | > ,C I D , 

• ScALEF< IPOS) *VECt0R 

•RITE !6*32S) NAHE! IPOS) .SID, ASSIGN! IR0*,1> .C ID. 

• SCAtEft IPOSI .VECTOR 
ISTART -• ISTART ♦ I ? 

IF < ISTART » EQ » 2811 ISTART • i 

Encode !8?,328,buff( istartj ) nameuposi.sid.assigni jroi.h.cid. 

• SCALEF 4 IPOS). VECTOR, I SLANK 
IF FULL. WRITE BUFFER ON NAjTRAN INPUT LOADS FILE 

330 IF I I START *EQ * 267) CALL NTR AN ( NASF I L . I , 280 .BUFF »L . ? 2 ) 


C* 

3S0 


325 

326 
326 
32? 
395 
3?6 
351 


•RITE CONTENTS OF BUFFER AND EnD INDICATORS ON NAsTRAN INPUT FILE 
If ! ISTART »EB, 267) t ST ART ■ -13 
ISTART ■ ISTART ♦ j? 

ENCODE !6, 328, BUFF! ISTART) ) NInE 
CALL NTRAN1NA5FIL, I , ISTART.BUFF.L.22) 

FOrM A T I lH 0 tA 6 « 2 X§ 3 | 8 »?F 8 , 2 ) 

format < aa » 2x . 3 ie ,?F8 . 2 > 

FORMAT (I9A6) 

FORMAT ! »DATA DECK OUT Of SEQUENCE*) 

FORMAT ( 1 1 F7 » 2 ) 

FORMAT <3ll» 

FORMAT ! , a*,*6,» nATRIA. RO* NUMBER 1 « I ? , 50 ! 1 1 OF 1 0 . 2 I ) 

RETURN 

End 


END OF COMPILATION; , DIAGNOSTICS, 


( 



000122 
00012 ? 
00012 ? 
OOOl 30 
O 00 130 
0D0IS3 
000153 
000)7? 
000177 
000206 
000206 
000205 
000236 
000236 
000236 
00025? 
n0026| 
00026? 
000276 
000306 
000306 
000306 
000306 
000306 
000306 
000306 
000306 
000335 
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Description 


[f the file is on tape, no action is token. If the file is on drum, the relative drum address is adjusted by the word count 
in RFLMG. If the file is on FAST RAND, the relative sector address is adjusted by the word count in 6FLNG divided by 
the sector si 20 . The adjustments are positive, unless the function is backspace, in which case it is negative. Before 
exiting, zero is stored in BFLNG, so that a redundant call on UPDDAS will not destroy the mass storage location. 

4.1/ 21. NVVBLKS - WRITE BUFFERED OUTPUT BLOCK TO MASS STORAGE 

* Purpose 

1 o output a block of nonformatted or formatted data to tape, drum, or FASTRAND. 

• FORTRAN V Reference 
Not applicable. 

n Assembler Language Reference 

There are two entries in NWBLK$: DRAINS and WRBLKS. DRAINS is invoked by 
$LJ DRAINS 

On entry, UNITS must contain the unit number and AO must contain the packet location. 

WRBLKS is invoked by, 

SLJ WRBLKS 

On tmry, AG must con id in the location of the I/O packet. 


* Description 


N'.vBLKS has two entries, DRAINS and WRBLKS. DRAINS inserts any trail pari needed by the block. For 
nonformatted output DRAINS also inserts the checksum and control words. The last control word is updated and 
WRBLKS is called to write the data block. For nonFormatted blocks the checksum is then set to zero and the block 
sequence number is incremented. 

WRBLKS waits until the previous operation on the file is completed. It then sets the function code and calls UPDDAS 
10 update the mass storage location. The buffer location and data length are inserted into the packet and, if two buffers 
ere in use, the old buffer is inserted as the available or working buffer. Finally 10$ is called to write the block. 
V/R9LKS does not wait for the write to be completed before exiting. 


4.1 fj. NT RAN I/O PROCESSING 


The HEAD and the WRITE statements, although convenient to use, do not make efficient use of tapes and drums because the 
Ian- .or;:- does not permit parallel processing. Furthermore, a considerable amount of time is used in processing an I/O list 
beer sa of its generality. 

NT \N provides a tool for reading and/or writing binary information on tape or drum. It also provides I/O buffering through 
a CALI, statement in the FORTRAN language: 

CA L L N T R A N {UN FT sequ.cn ce of operations) 


in v 

or-:'- 
hr: • 

v:iK ■< 

to <: 

to ti 


UNI F is an integer constant or variable designating the logical unit. The sequence of operations is any list of I/O 
Tans (as specified in 4.13.1} to be performed in order on the specified unit. If the unit is not busy, N'T IRAN initiates the 
p.rvdon and stacks the rest m a waiting list and then returns to the calling program. If the unit is already busy, then the 
.u,.; e is stacked in a watting Msi and chained 1.0 any previously stacked operations. The exceptions are operations 16 
‘ L ' n -y '- r ' ! tvi cou n^a^dUNT f 1 AN waits for the completions of all previous operations for that unit before returnin'..' 
Apt *AQE 


si my program. 


POOR 


m 
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When an interrupt occurs, NTRAN records the transmission status, initiates the next operation in the chain, and re'. urns 
control to the interrupted calling program. 


Input/output operations provided by NTRAN are: 

{1} Write (tape, drum, or FASTRAND) 

(2) Read (tape, drum, or FASTRAND) 

(3) Block Read (tape, drum, or FASTRAND) 

(4) Search Read (tape, drum, or FASTRAND) 

(5) Search Drum (drum or FASTRAND) 

(6) Position Drum (drum or FASTRAND) 

(7) Position Tape by Block (tape only) 

(8) Position Tape by Files (tape only) 

(9) Write End of File (tape only) 

(10) Rewind (tape, drum, or FASTRAND) 

(11) Rewind/Interlock (same as 10 for drum and FASTRAND) 

(12) Set Tape Density Medium (tape only) 

(13) Set Tape Density Low (tape only) 

(14) Set Tape Parity Odd (tape only) 

(15) Set Tape Parity Even (tape only) 

(16) Initialize Multireel File (tape only) 

(17) Swap Reels for Multireel File (tape only) 

(18) Reassign Unit (tape, drum, and FASTRAND) 


(19) Assign Unit to External File Name (tape, drum, or FASTRAND) 

(20) NOP (tape, drum, and FASTRAND) 

(21) Get device 

(22) Wait and Unstack then Release Unit (tape, drum, or FASTRAND) 

(23) Set Tape Density High (tape only) 

In order to use NTRAN, a FORTRAN program must have some way to check the status of the transmission. For this reason, 
every block of main storage which is used for I/O has a block status word (an integer variable) associated with it; the name of 
the status word is specified in the argument list of the CALL. 


en NTRAN is called, the list of arguments is searched tor status words, and these are all set to a value (— 1 ) which indicates 
transmission-not-complete. When an interrupt occurs, the corresponding status word is set by NTRAN to a value which 
indicates the nature of completion, whether normal (a positive value indicating number of words transmitted), abnormal 
(value 2) or in error (value - —3 or —4), The status words for each operation are defined in 4.18.1. 



VY'un NTRAN generates —2 or —3, it releases all operations stacked for the unit which have not been started. The offending 
operation is marked abort and is left stacked. Any further calls of NTRAN, requesting the above described unit (except 
operation 22) will not be performed or stacked, but will generate a particular status code (-4). Operation 22 may be used to 
release the abort condition for n unit, This allows the programmer to regain control after trying to read or write past ani 
end of file, end of -drum, or end-of tape. 

An attempt to read or write zero words (N-Q) will result in the function being ignored. 

The following errors will generate a status word of —3: 

(1) Hardware errors. 

(2) Parity and character count errors. 

(3) Illegal unit specified. 

NO ’ E : Legal units are all tapes and drum/FASTRAND files. 


4.13.1. OPERATIONS 

An operation is defined in the argument list by a group of arguments. The first argument for on operation identifies the type 
of operation. It is followed by the parameters for the operation; these are fixed in number and order of occurrence by the 
type of operation. Several operations may be grouped in a single call to NTRAN. 

When referencing a drum file, the current drum address for that file is the starting address for the file only if the drum file 
was never referenced in the current run. If the drum file was referenced before, the current drum address is the current 
address before the last CALL of the file plus the number of words transmitted or positioned in that CALL. In order to reach 
the starting address of the file, operation 1 0 apd 22 can be used. 

For example, in the call NTRAN (3, 9, 10, 22): 

3 ” unit number 


9 = end-of-file when operation is completed 

10 ” rewind unit 

22 - all operations on unit must be completed before another function is issued. 

The cited example is a stacked operation. 

NOTE: For FASTRAND I/O the specified drum address is a sector count and not a word count as for drum I/O. However, 
with normal termination, the status variable associated with a main storage transfer will indicate actual number of 
words transmitted. It is then up to the user to perform the covered divide with the sector size in order to retrieve the 
corresponding sector count. . .. 

For search operations on FASTRAND, if a find is made, the drum address will point to the sector containing the matching 

item; a following read function will therefore not necessarily start reading the matched item. 

{;>) Write 

The argument group is: 1, N, B, L 


in which N is an integer constant or variable which specifies the block length; R is a variable name from which data is to 
be written; and L is on^rhteger variable, the status word, which is set by NTRAN as follows: 


— 1 --- transmission not complete 


—2 ~ end of tape or drum file 
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-3 = device error 

-4 « transmission aborted (previous operation had ~2 or -3 status). 

If the transmission is completed normally, L receives the number of words transmitted (N). 

(b) Read 

The argument group is: 2, N, B, L 

in which N is an integer constant or variable which specifies the length of the main storage block which will receive the 
data (for tape, N is the maximum number of words which will be transmitted from the tape block; for drum, N words 
will be transmitted), B is a variable which is the name of a main storage area into which the data is to be read, and L is 
an integer variable (the status word), which is to be set as follows: 

-1 = transmission not complete 

—2 - end of file (no words read DRUM) 

-3 = device error 

—4 - transmission aborted (previous operation had —2 or —3 status) 

If the transmission is completed normally, L receives the number of words transmitted (N). 

(c) Block Read 

The argument group is: 3, N, B, L 

’A block read for tnpp and FASTRAND is the same as an ordinary read. For drum, transmission is terminated &v reading 
a word of all 1 bits (called end-of-block word). N is the maximum number of words which can be transmitted. L (the 
status variable) receives the actual number of words transmitted if the operation is completed normally; otherwise L is 
set as in READ. B has the same definition as in read. 

(d) Search Read 

The argument group is: 4, S, N, B, L 

in which S (a sentinel word) is a constant or a variable which is used in searching tape or drum. 

For tape, the first word of each block is compared to the sentinel and, when a match is found, that block (includir , '.he 
sentinel word) is read. For drum, starting at the current drum address, each word is compared to the sentinel and, > vhen 
a match is found, that block (N words) is read. An unsuccessful search results in an end-of-file status.(— 2) for L For 
FASTRAND a track search is employed; if no find is made, the user may request additional searches. 

When a match is found on FASTRAND, the entire sector containing the matched sentinel will be read into B. 

(e) Drum Search 

The argument group is: 5, S 

in which S is a constant or variable sentinel word. Starting at the current drum address, the drum is searched until 
match or end-of-file is reached. The drum address of the match becomes the new current drum address (first drum 
address to be read or written is that of matched drum address). When a match is found on FASTRAND, the drum 
address will point to the sector containing the matched sentinel. If a match has not been made, the address does not 
change. 






Position Drum 


(D 

The argument group is: 6, N 

in which N is an integer constant or variable, positive or negative, which is added to the current drum address to form a 
new current drum address. If N is negative and the current drum address plus N is less than the starting address of drum 
file, current drum address is set to starting address of drum file. N is word count for drum, and sector count for 
FASTRAND. 

(g) Position Tape By Blocks 
The argument group is: 7, N 

in which N is an integer constant or variable which specifies the number of blocks to space over on tape. Positive N for 
forward spacing; negative N for backspacing. 

(h) Position Tape By Files 

The argument group is: 8, N 

in which N is an integer constant or variable which specified the number of file marks to space over. Positive N for 
forward spacing; negative N for backspacing.. Tfie operation is terminated by moving over the Nth file mark, by reaching 
the load point (back spacing), or by reaching the end of tape (forward spacing). 

(i) End File 

The argument group is: 9 

For tape an end-of-file mark is written. 

(j) Rewind 

The argument group is: 10 

(k) Rewind/Interlock 

The argument group is: 1 1 

For tape, a rewind/interlock is given. For drum and FASTRAND the operation is the same as a rewind. 

NOTE: Operations I through o pertain to magnetic tape density and parity setting (are available only on UNISERVO 
IV-C, Vl-C, and VI II -C units). If not specified, the setting will be system standard. 

(l) Set Tape Density Medium (556 bpi) 

The argument group is: 12 

(m) Set Tape Density Low (2 DO bpi) 

The argument group is: 13 

(n) Set Tape Parity Odd (binary standard) 

The argument group is: 14 

(o) Set Tape Parity Even (BCD standard) 

The argument group is: 15 


PA® j£ 

am 


■luTTr 


NOTE: 


Density and parity setting routines set 
processing. 


density and parity for ail pipe units tied to a logical unit when multireel 
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If the I/O error routine has been entered by a call to NERCR$ anti an ERR clause has been found, control goes lo the 
statement number specified in the FORTRAN I/O reference. Control goes back to the I/O routine which detected the error, 
if entry point NERCRS was used and no ERR clause has been specified. In this case, the following identifying message is 
printed: 

'I/O CALLED AT SEQUENCE NUMBER $ OF P* 

where $ is the sequence number shown in the compiler listing and P stands for MAIN PROGRAM or the name of the 
subprogram. 

If the I/O error routine is entered by a call to NERCT$ and an ERR clause has been specified, control changes to the I/O 
calling program without the identifying message. If NERCT$ is called and no ERR clause has been specif ied, the message 

'FORTRAN V ERROR TERMINATION:' 

is printed by NERR6S. This is followed by a printed line identical to the identifying message. The ensuing walk back process 
prints one line for each subprogram over which walk back occurs indicating sequence or tine number and the name of the 
subroutine. Walk back ceases when the main program is reached or when 200 lines have been printed. 

The I/O error routine is entered at NEFCL$ when a software end of file or @EOF card or the image @EOF+x {x is 
nonsignificant) as the first word of a record is encountered. If an END clause has been specified, control goes to the I/O 
calling program without any messages at all. If no END clause is specified, the following message is printed: 

'EXECUTION TERMINATED BY AN ATTEMPT TO READ PAST AN END OF FILE.' 

This is followed by the walk back process as described previously. 


4.19.1. ERROR CODES AND ASSOCIATED MESSAGES 

The following is a list of error codes, the contents of the FORTRAN V error word (NSTATS), and the error message provided 
by the I/O routine where the error was detected. 


00 

FORMAT 

Type 

I/O List 
Type 

Location of Variable in Program 


Remark: Type of FORMAT specifications does not agree with type specified by I/O list. 

i 

— Message: 'ERROR - TYPE IN FORMAT IS NOT THE SAME AS THE INTERNAL TYPE.' 

Record image is displayed. Message is printed no more than once if error recurs in same I/O statement. No terminal! .m, if 
ERR clause is not specified. 


01 

Character 

00 

Location of Word in Format 


Message: 'ILLEGAL FORMAT CHARACTERS WERE ACCEPTED AS BLANKS.' or 
'THE INTERPRETATION OF MEANINGLESS INPUT WAS ATTEMPTED.' 

Record image is displayed. Messages are not repeated if errors recur in same I/O statement. No termination if ERR clause is 
not specified. 



r 


02 

' 

00 | 00 

Location of Record 


Message: 'RECORDS EXCEEDING MAXIMUM LENGTH ARE FAULTY.' 

Record image is displayed. Messages are not repeated if same error occurs in same I/O statement. No termination if E R R 
clause is not specified. 
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The six possible error messages produced by NCR AN are; 

0 ) ‘ ‘NT RAN ERROR* UNIT $: NO PACKET SPACE AVAILABLE, 

This message indicates that all available NT RAN packets are in use and that another packet is requested. 

Suggested Action: Reassemble NTRAN and increment the number-of-packets-parameter NPKTS. 

(2) * ’NTRAN ERROR ' UNIT $ IS NOT AVAIL ABLE FOR NTRAN. 

A reference to a unit was made that is already in use by normal I/O. 

Suggested Action: Change unit number, 

(3) “NTRAN ERROR* UNIT $ NOT ASSIGNED, 

A reference to an unassigned unit was made with a function other than.write (1) or assign (19). 

Suggested Action: If a write function (1) had been used as the first reference, a dynamic assign of a FASTRAND file 
(scratch) would have been made. If a scratch file was not intended, an assignment has to be made either by function 19 
(assign) or by an assign card. 

(4) “NTRAN ERROR* UNIT $ HAS IMPROPER DEVICE 

Requested function is not available for the device assigned to this unit. The requested function will be ignored. 
Suggested Action; If action is wanted for the requested function, a unit with another device assigned has to be used, 

(El "NTRAN ERROR* UNIT $ HAS II I EG At. FUNCTION CODE 

(6) “NTRAN ERROR’ UNIT$: NUMBER OF ARGUMENTS IN STACK EXCEEDS TABLE LENGTH. 

This- message indicates that the number of arguments in call is greater than the maximum calling sequence table length. 

Suggested Action; Reassemble NTRAN and increase the NCT length. 

NOT?:: The user must not change any argument of an argument group before the function is completed; that is, before the 
status word (if any) has been changed from -1 to another value. All NTRAN functions are executed in sequence; 
the completion of one function implies completion, successful or unsuccessful, of all preceding functions. 




4.19. NSTATS - THE I/O ERROR STATUS WORD 


New values for the FORTRAN' V I/O error status word have hr 
a FORTRAN V program. Contents of NSTATS is retrieved by 
value of NSTATS is set to zero following this reference. 


cn added for more detailed error analysis during execution of 
the function reference INSFAT(L) where L is irrelevant. The 


The form3t of the error word, NSTATS, is: 



— ■ 

— - 

— - - j ■ ■ ■■ 


SI 

S2 

S3 

H2 



SI always contains the (FOR FRAN V I/O) error code. The FLD function may be used to examine the fields of the error word. 

The- new FORTRAN I/O error routine {element NIOERS) will search for an ERR or END clause. It will also print the error 
.f.n provided by the calling I/O routine, if the error is associated with foimat interpretation and/or a record (including a 
line of NAME LIST I/O), the entire record is rj belayed following the message: 


■THr FOLLOWING RECORD IS ERRONEOUS on DOES NOT CORRESPOND TO FORMAT SPECIFICATIONS' 
If Thu file is tape, FASTRAND, drum, or an a i tomato symbiont File, the unit number u is indicated in the message 


JNIT n IS IN ERROR' 


A- 7 



APPENDIX B 

ROUTINE FSESFL- DESCRIPT ION 5 USE 


0KIGINAB PAGE IS 
Of POOR pOALOT 


07 JAN 70 


NASA-MSC EXEC vm LOCAL LIBRARY 


5. FSBSFL — POSITION OVER FILES 


5 . 1 IDENTIFICATION 

POSITION OVER FILES. 

ELEMENT NAME — FSBSFL. 

AVAILABLE IN MSC-LOCAL1B. 

ADDED IN OCTOBER 1969. 

5.2 PURPOSE 

THIS ROUTINE WILL POSITION FORWARD OR BACKWARD THE SPECIFIC 
NUMBER OF FILES ON NON-FORMATTRD FORTRAN TAPES • BOTH TAPE MARKS 
AND SDF END-OF-FILE SENTINALS ARE RECOGNIZED BY THIS ROUTINE. 

5.3. USAGE 

CALL FSBSFL ( LUN , NF , NSTAT ) 

HERE LUN IS THE FORTRAN LOGICAL UNIT NUMBER 

NF IS THE NUMBER OF FILES TO SKIP. IF POSITIVE, POSITION 
FORWARD. IF NEGATIVE, POSITION BACKWARD. 

NSTAT IS THE STATUS CODE. POSSIBLE VALUES AND CAUSES ARE — 
0=NORMAL RETURN 

ILLOGICAL UNIT IS NOT ASSIGNED TO TAPE OR WAS NEGATIVE 
2=POSITIONED BACKWARD TOO MANY FILES. THE TAPE IS 
NOW POSITIONED AT THE START OF THE FIRST FILE. 

3=UN RECOVERABLE . 

5.4. ERROR MESSAGES 
NONE 

5.5. SPECIAL CONSIDERATIONS 

A POSITION BACKWARD REQUEST WILL LEAVE THE TAPE POSITIONED AT THE 
START OF THE PROPER FILE. IF THE TAPE IS POSITIONED IN FILE 3, A 
CALL WITH NF = -1 WILL LEAVE THE TAPE POSITIONED AT THE START OF 
FILE 2. 
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